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ALA^^NCASr 
POLIAS E ROLDANA! 



A ALAVANCA 

DISTANCIA X PESO 



SISTEMAS DE POLIAS 



POUPANDO ESFORCOS 



ELEVADOR HIDRAULICO 



A mecanica e a area da fi$ica que 
estuda as for^as que interagem entre 
OS corpos, Utilize o computador para 
analtsar alguns de seus principios, 
stmulando situapoes da vida cotldiana. 



Os grandes monumenios antigos — 
como as piramides do Egito e os tem- 
plos incas — sempre nos intrigaram, 
pois OS povos que os construi'ram nao 
possufam a avangada tecnologia de que 
dispomos nos dias de hoje. 

Nenhum construtor contemporaneo 
se alreveria a executar uma obra como 
aquelas sem ter em maos urn equipa- 
mento que o ajudasse a cortar, transpor- 



tar e erguer a grandes alturas as gigan- 
tescas pedras que as compoem. No en- 
tanto, aossas mais sofisticadas maquinas 
sao projetadas a partir dos mesmos prin- 
ci'pios que orientavam os antigos enge- 
nheiros. A ciSncia que estuda tais prin- 
cipios e a mecanica. 

As for^as que atuam sobre um siste- 
ma cst^tico (como um edificio) ou dina- 
mico (como as engrenagens de uma mk- 
quina) sao percebidas de modo quase 
instintivo. Assim, quando tevantamos 
uma xicara de caK, calculamos automa- 
ticamente a for^a exata para faze-lo sem 
derramar o liquido. Do mesmo modo, 
ao escolhermos uma tdbua para uma es- 
tante, sabemos mais ou menos qua! a es- 
pessura que ela deve ler para suportar 
um determinado peso. 



Em situagoes simpJes, como as men- 
cionadas, apenas estimamos as forfas 
em questao. Porem, em alguns casos, os 
calculos devem ser muito precisos. E ai 
que entram os computadores. 

Voce pode, e claro, usar dados obti- 
dos atrav^s de suas proprias experien- 
cias para pianejar simula96es envolven- 
do forcas. Assim, em programas de jo- 
gos, i possivel estimar, com uma boa 
margem de acerto, a que distancia uma 
boia vai parar depois de ter sido golpea- 
da por um bastao, 

Mas o computador em geral requer 
dados muito precisos. Quando um en- 
genheiro esta projetando uma ponte, 
por exempio, ele precisa saber exasa- 
mente a fon;a que atua sobre cada es- 
trutura e o seu limite mdximo de resis- 
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tgncia. Aprendemos, aqui. a calcular 
for<;as em sistemas simples, onde as car- 
gas podem ser variaveis. 



AALAVANCA 



O transports de cargas muito pesadas 
torna-se um s^rio problema k medida 
que vao sendo construidas estruturas ca- 
da vez maiores. Durante a d^cada de 60, 
o foguete Saturno V, que levaria o ho- 
mem ate a Lua, era transportado em 
umagrande plataforma movel, a luaior 
ate eotao t'abricada. 

Atuaimente, as plataformas de petro- 
leo do mar do Norte sao transportadas 
por terra em veiculos que ftutuam sobre 
um colchao de ar. Esses equipamentos, 
e muitos outros mais simples, dependem 
sempre de algum tipo de maquiaa que 
Ihes de pressao, tragSo ou movimento. 
Essas maquinas, por sua vez, nao pas- 
sam de montagens mais complexas de 
alguns instrumentos bdsicos, ja conhe- 
cidos e usados hi seeulos. 

Emre os mais primitivos deles esta a 
alavanca. Em sua forma mais simples, 
ela consiste de um bastao. Uma das ex- 
tremidades desse bastao fica embalxo da 
carga e a outra i levantada para empur- 
ra-la. Usando esse artificio, uma pessoa 
pode mover objetos muitas vezes mais 
pesados que ela. Como afirmava Arqui- 
medes, o grande matematico do mun- 
do autigo, poden'amos levantar a Ter- 
ra, se tivessemos um bastao bem longo 
e um ponto de apoio. 

Esse ponto de apoio estd situado em 
aJgum lugar entre as. duas extremidades 
do bastao. Digite este programa para ver 
uma simulacao do funcionamenio de 
uma alavanca. 



30 BORDER 0: PAPER 0: IKK 7: 
CLS : OVER 1 

40 INPUT "DiBtancia do apoio 
a partir da esauerda (1-8 

m) "id 
50 IF d<l OH d>8 THEN GOTO 

40 
60 LET «=C10-d)/d 
70 PRINT AT 1,0; "Peso necesaa 
no para equilibrar 100 KG-"; 
u*l(»0;"KG'' 
100 PLOT INK 4; 0,15: DRAW 
INK 4:255.0: FOR n=0 TO 55: 
PLOT (28+20*d)-n/3. 71-n 
110 DRAM INK 7;2*t(28+20*tl)- 
PEEK 23677) ,0: NEXT n 
120 LET a=d-10= LET a=ATN (a/ ( 
l-a*a})+2*ATN (1) 
130 FOR b=a TO Z*ATN (IJ STEP 
(2*ATN (l)-a)/lO 
140 FOR k-1 TO Z: G03UB 1000: 
GOSUB 15 00 
160 NEXT k 
170 NEXT b 

IBO LET B=2*ATN (1) : GOSUB 
1000; G03UB 1500 
190 IF INKEY$-"" THEN GOTO 
190 
. 200 RUN 
1000 PLOT 1Z0-100*SIN (b), 71-20 
*d*GOS (b) 

toil DRAW 127+100*SIN {b)-PEEK 
23677, 71+(200-20*d)*COS Cb)-PEE 
K 23676 

1025 DRAW 0.-8: DRAW -10,0: DRA 
W 0,-iO: DRAW 20,0: DRAW 0,10: 
DRAM -9,0: POKE 23678, (PEEK 236 
78)+6 

10 30 RETURN 

1500 PLOT 128~100*SIN (b). 70-20 
*d*COS Cb) 

1510 LET e=-SQR (SQR w) 
1520 DRAW 0,-8: DRAW -10*e,0: D 
RAW 0,-]0*e: DRAW 20*e,0: DRAW 
0,10*e: DRAW -9*e.O 



1530 RETURN 

D 

10 PMODE 3.1:PCLS 

20 COLOR 3: LINE {0 , IBO) - (255 , 19 

1) ,PSET.BF 

30 CLS 

40 INPUT" DISTANCIA DO APOIO A 

PABTIR DA ESOUERDA (1-8 M> "; 

D 

50 IF D<1 OH D>8 THEN 30 

60 W=(10-D}/D 

70 PRINT: PRINT" PESO NECESSABIO 

PARA EQUILIBRAR 100 KG =-;W«100 

;"KG" 

80 FOR G-1 TO 4000: NEXT 

90 SCHEEN 1,0 

lOD COLOR 2:LINE(2e+20*D,150)-( 

18+20*D,179) .PSET 

110 LINE - (38+20"D, 179) ,PSET:LI 

NE - (2S+20*D,i50) .PSET:PAINT(28 

+20*0,160) , 2 

120 A=10-D:A=ATN(A*A-1) 

130 FOR AN-A TO 2«ATN(1) STEP ( 

2*AT1>J (1) -A)/ 10 

140 C=4:G0SUB 1000 : C-3 :GOSUB 15 

OU 

150 FOR G-1 TO 500:NEXT 

160 C=1:G0SUB 1000:GOSUB 1500 

170 NEXT 

]eO AN=2*ATN CD :C=4; GOSUB lOOO: 

C=3:G0SUB 1500 

190 IF INKEYS="" THEN 190 

20 HUN 

1000 COLOR C:LINE(128-100*SIN<A 

N) ,149-20*D*COS(AN) )- (134+100'»S 

IN(AN) ,149+(200-20*D)"COS<AN)) , 

PSET 

1020 DRAW"D2L6D6R10U6Le" 

1030 RETURN 

1500 COLOR C:LlNEa32-i00*SIN(A 

N} ,i4 7-20*'D*COS(AN) )- (132-10 0*5 

IN<AN)-SCJH(W)*;,14?'-20*D*C0SCAN 

) -SQRCW)*?) .PSET.BF 

1530 RETURN 




m 



5 SCREEN 0:KJOcriLE3>'l: COLOR 15. 

1,1 

10 INPUT'diotancia do t»onto de 

apoio (l-Sm) 'jD 

15 IF D<1 on D>8 THEN 10 

20 W-(10-D)/D 

25 SCREEN 2 :0PEI1"GBP : " FOR OUTP 

UT A3 II 

30 PRE3ET(0,0) 

35 PRINT II, "PESO QUE EQUILIBHA 

100 KG=";INT{H*100) :-KG- 
40 LINE(0.1B0)-{255.191) .3.BF 
45 FOR 1=0 TO 10 
50 LINE (28+20*1, lB0)-{2e+20*l, 
191) ,6 
55 NEXT I 

60 LINE(28+20*D,150)-(18+20«D,1 
79) .2:LINE-(38+20*D.179) ,2:LINE 
-{28+20*0,150} .2:PAINT(2e+20*D. 
160) ,2 

65 A"10-D:A-ATN{A«A-1) 
70 FOR AN=A TO 2*ATN{1) STEP (2 
*ATN{1)-A)/10 

80 C=4 :G03UB 1000: C=3 :GOSUB 1500 
90 FOR G=l TO 500:NEXT G 
100 C-1:G0SUB 1000:GO3UB 1500 
110 NEXT AN 

120 AN"2*ATN(1) :C-4:G0SUB 1000: 
C-3;G0SUB 1500 
130 IF INKEy?-"" THEN 130 
140 RUN 

1000 LINE (128-100*SINtAN) .149- 
20*D*COS(AN))-tl34+100*SlN{AN} , 
149+(200-20*D)*COS{AN)) .C 
1010 DRAW-D2L6D6B10U6LB' 
1020 RETURN 

1500 LINE (132-100*SINCAN) ,147- 
20*D*COS (AN) ) - tl32-100*giN (AN) - 
SQB (M) *7 , 147-20*D*COS (AN) -SQH (U 
J*7).C,BF 
1510 RETURN . 



an El 



5 HOME 



HGR 



BCOLOH- 



10 VTAB (23): INPUT "DI3TANCIA 

DO PONTO DE APOIO (l-8M)-"iD 
15 IF D C 1 OH D > B THEN 5 
20 W - (10 - D) / 10 
30 VTAB (24): PRINT "PAHA EQUI 
LIBRAR 100 KG E PRECISO ";U * 1 
00;- KG" 
40 HPLOT 28 + 20 « D,120 TO 18 

+ 20 * D,149 
50 HPLOT TO 38 + 20 * D.149 T 
28 + 20 * D,120 
60 A - 10 - D:A - ATN (A * A - 

1) 
70 FOR AN - A TO 2 * ATN (1) 
STEP (2 * ATN <1> - A) / 10 
80 HCOLOB- 3: GOSUB 1000 
90 FOR G - 1 TO 1000: NEXT G 
100 HCOLOR- 0: GOSUB 1000 

110 NEXT AN 

120 AN = 2 * ATN (1): HCOLOR- 

3: GOSUB 1000 

130 GET AS: RUN 

1000 X - 12B - 100 * SIN (AN) : 

Y « 119 - 20 * D * COS (AN) :R 

= 134 + 100 * SIN (AN) ;S = 119 

+ (200 - 20 * D) * COS (AN) 
1010 HPLOT X,Y TO R.S 
1020 HPLOT H,S TO R,S + 2 TO R 

- 6,S+ 2T0R - 6,3 + BTO R 
+6,S+8T0H+6,S+2TOR,S 

+ 2 
1500 HPLOT 132 - 100 * SIN (A 
N).117 - 20 « D * COS (AN) TO 
132 - 100 * SIN (AM). 117 - 20 

* D « COS (AN) - SQH («) * 7 

TO 132 - 100 « SIN (AN) - S(JH 
(W) * 7,117 - 20 « D « COS (A 
N) - SQH (W) * 7 
1510 HPLOT 132 - 100 • SIN (A 
N) - SOfi (WJ * 7,117 - 20 » D 

* COS (AN) - SQH (U) « 7 TO 1 
32 - 100 * SIN (AN) - SQR (W) 

* 7,117 - 20 * D * COS (AN) T 
132 - 100 * SIN (AN), 117 - 2 

* D « COS (AN) 
1520 RETURN 




Ao executar o programa, o compu- 
tador pedir^ que voce digite a distancia 
do ponto de apoio (D), a panir da ex- 
tremidade esquerda de uma barra de 10 
m. Ele imprime, entao, o peso necessa- 
rio para equilibrar 100 kg na oulra pon- 
ta (W). O ponto de apoio e desenhado 
pelas iinhas 100 e 110 (TRS-Color e 
Spectrum), 40 e 50 (Apple e TK-2000) 
e 60 (MSX). Um [a?o conirola a anima- 
(;ao da alavanca — Iinhas 130 a 170 
(TRS-Color e Spectrum) e 70 a 110 
(MSX, Apple e TK-2000) — . chaman- 
do a sub-rotina 1000, que desenha a bar- 
ra, e a 1500, que desenha os pesos. 

Introduza diferentes valores para D 
e note que, quanto mais distante do pon- 
to de apoio, menor e o peso necessirio. 
Do mesmo modo, uma distancia mais 
curta requer um peso maior. 



DISTANCIA X PESO 



Existe uma formula matematica bem 
simples para o cilculo de distancias e pe- 
sos em alavancas; basta que voce saiba 
onde se cncontra o ponto de apoio. Se- 
gundo essa f6rmula, a carga, multipli- 
cada pela distancia ate o ponto de apoio, 
e igual ao peso usado vezes a distancia 
at^ esse ponto. Em termos de variiveis, 
seria o seguinte: 

C X DC = P X DP 

No programa anterior, usamos W no 
lugar de P. A barra mede 10 m, logo, 
DC 6 igual a 10 menos DP. Se a carga 
fosse de 1 kg, o peso necessario para 
equilibra-la seria entao: 

W = (10 - DE)/DE 

conforms usamos nas Iinhas 60 (TRS- 
Color e Spectrum) e 20 (MSX, Apple e 
TK-2000). A varidvel DE (O, no progra- 
ma) foi introduzida por voce. 

As balangas mecanicas utilizam esse 
princi'pio. Toma-se um ponto de apoio 
no meio da barra e coloca-se o peso a 
ser medido em uma das extremidades. 
A parti r dai, adicionam-se massas ja co- 
nhccidas do outro lado, at^ alingir o 
equilibrio. O peso do objeio serd a so- 
ma dessas massas. Isso funciona muito 
bem para pequenos pesos, mas, quan- 
do se trata de grandes cargas, o proce- 
dimento e outro. Nesse caso, o ponto de 
apoio e colocado bem proximo da car- 
ga e cakula-se o peso aplicando a r6r- 
mula i& explicada. 

Depois de ter brincado um pouco 
com seu programa, voce esiara pronto 
para identificar o funcionamento de ala- 
vancas em qualquer tipo de mdquJna. 



|. 
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Ao trabaihar com uma chave inglesa ou 
com o macaco do seu carro, nunca se 
esque<;a de que a distancia que voce lo- 
mar do ponto de apoio poder^ reduzir 
muito o seu esfor?o. 



SISTEMAS DE POLIAS 



As alavancas sao muito litds para pu- 
xar e empurrar objetos, mas, quando se 
quer kvar uma carga a grandes alturas, 
e necessirio utilizar as polias. Digite o 
programa a seguir para ve-Ias em fun- 
cionamento. 



10 CLEAF 3239<): RESTOPE : 
GOSUB 510: BORDER Q; PAPER 0: 

INK 7: CLS 
20 PRINT AT 10,0 i "Quantas rol 
danaa {2, 4 ou 6)7' 
30 LET aS-INKEYS: IF a$<>"2" 
AND a5<>"4" AND aS<>"6" THEN 
GOTO 30 

40 PRINT TAB (10);aS: LET np= 
UAL ta$> : LET l=25*np-50 

45 IF np-2 THEN POKE 32431, 
25 

46 IF np-4 THEN POKE 32431, 
17 

47 IF np-6 THEN POKE 32431. 
14 

50 PRINT : PRINT "S3o necesaa 

rioH ";INT UOOO/np);" Quilog 

ramas" : PRINT "para levantar 

1 tonelada" 

55 FOR m-l TO 500: NEXT m 

60 CLS : GOSIJH 1000 

70 LET sp-120 

90 FOR k=l TO 50 
100 RAND USB 32400 
105 PLOT OVER 1 ; 191-1 -np, Bp- 
DRAW OVER 1;8.0 
110 PLOT OVER i i 19l-l-np,Bp: 
DRAW OVER 1 : B , 
120 LET ap=Bp-np: IF ap<''0 
THEN LET ap-120 
150 NEXT k 



160 IF INKEYS''"" THEN GOTO 

160 

170 BUN 

510 FOR n=32400 TO 32491 

520 READ a: POKE n,a 

530 NEXT n 

540 DATA 62,60,79,230,192,15, 

15,15,198.64,103,121,230,7,13 2 

,103,121,135,135,230,224.111, 

62 

550 DATA 175,254,192.208.145, 

216,8,14,14,125,177,111,62,30, 

254,32,208,145,216,60,79.6,0, 

197, 229. 17, 2 24, 91, 23;, 176, 225 

560 DATA 193,217,8,167,40,30, 

71,217.124,60,87,93,230,7,32. 

10.123,198.32.95.56.4,122,214, 

6 87 235 

570 DATA 229.197.237,176,193. 

225.217.16,227.217.201 

580 RETURN 
1000 PLOT 0.170: DRAW 255.0 
1010 FOR lc»l TO np STEP 2 
1020 CIRCLE (23Z-k«26) ,140,13 
1030 CIRCLE (Z58-lc*26} ,50.13 
1040 NEXT k 

1050 PLOT 245.170: DRAW 0.-125 
1060 FOR k=l TO np-1 
1070 PLOT 246-k*26.140: DRAW 0. 
-90 

1080 NEXT k 

1090 PLOT 197-l-np,l40 : DRAM 0, 
-140 

1100 PLOT 208.141: DRAW (256-np 
*Z6)-PEEK 23677,0 
1110 PLOT 234,50: DRAW C282-np* 
26)-PEEK 23677.0 
1120 PLOT 206,170: DRAW 0,-28: 
PLOT 258-np*26,170: DRAW 0,-28 
1130 PLOT 231-1*2/3,50: DRAW 0. 
-20 

1140 PLOT 232-1/3.50: DRAW 0.-2 


1145 DRAW (231-1*2/3) -PEEK 2367 
7,0 

1150 PLOT 231-1/2.29: DRAW 0,-1 


1160 DRAW -9,0: DRAW 0,-10; DRA 
W 19,0: DRAW 0,10: DRAW -9,0 
1170 PLOT 180-1,0: DRAW (180-1- 
20/SQR (np))-PEEK 23677,0: DRAW 

0,t20/SQB {np))-PEEK 23678: DB 



AW (180-1) -PEEK 2367 7.0: DRAW 
,0-PEEK 23678 
1210 RETURN 

Q 

10 PMODE 3,1: DIM P(Z80) 

20 CLS -PRINT "QUANTAS ROLDAMAS 

(2, 4 OU 6) ? "; 

30 A5-INKEY$:IF AS<>"2" AND AS< 

>"4" AND ASO'e" THEN 30 

40 PRINT AS:NP-VAL (AS) :L-25*NP- 

50 

50 PRINT: PRINT"SAO NECESSARIOS 

' ;1000/NP;PRINT"fiUILOGRAMAS PAR 

A LEVANTAR i TON."; FOR G=l TO 4 

OOO :NEXT 

60 PCLS:SCREEN 1,0:GOSUB 1000 

70 GET C 249,1 72 )-{215-L, 106) ,P,G 

:SP=38 

80 COLOR 4.1 

90 FOR K=i06 TO 49 STEP -1 

100 PUT (249,K+66)-C215-L,K),P, 

PSEt 

110 LINE(191-L-NP,SP)-(199-L-NP 

.SP) .PRESET 

120 SP-SP+NP:IF SP>191 THEN SP- 

36 

130 LINE(19S-L-NP.33)-(195-L-NP 

. 191) .PSET 

140 LINE ( 191 -L-NP.SP)-tl99-L-NP 

,SP) ,PSET 

150 NEXT 

160 IF INKEy$="" THEN 160 

170 HUN 

1000 LINE CO, 0) - (255, 10} , PSET, BF 

1010 FOE K=l TO NP STEP 2 

1020 CIRCLE(232-K*26,33) ,13.2:P 

AINT(232-K*26,33) ,2 

1030 CIRCLE (232-K*26.33) ,14.4, 

1. .5,1 

1040 CIRCLE (258-K"26, 121) ,13,2 

rPAINT (258-K«26,121) ,2 

1050 CIRCLE (258-K*26, 121) ,14,4 

,1,0, .5 

1060 NEXT 

1070 LINE(245,10)-(245.121>,PSE 

T 

1080 FOR K-1 TO NP-1 

1090 LINE (246-K*26. 33)-(Z46-K« 

26,121) ,PSET 

1100 NEXT 




..o 



..o 



1110 L1Ne;(195-L-NP,33)- 

P, 191) ,PSET 

1120 COLOR 4.3:LINE(208 

6-NP*26,34) , PRESET. BF 

1130 LINE(234,120)-(282 

22) . PRESET, BF 

1140 LINE(206,10)-(206. 

:LINE(25B-NP«25.10)-(25 

33) ,PSET 

USD LI^fE(232-L*2/3,121 

*2/3,14i) .PHESET 

1160 LIhfE{232-L/3,121)- 

, 141) , PHESET 

1170 LINE -(232-LX2/3.1 

ET 

liBO LINE<232-L/2,141)- 

,151) .PRESET 

1190 DHAW"L9D19R19U19L9 

1200 LINEU80-L. 191)-a 

SQB(NP) , 191-20/SQRtNP) ) 

BF 

1210 HETUHN 



(195-L-N 

.32) -(25 

-NP*26.1 

33} .PSET 
B-NP*26, 

)-(232-L 

{232-L/3 

4i) ,PHES 

(232-L/2 



80-L-20/ 
.PRESET. 



m 



100 SCREEN 0: COLOR 15,1.1:PIIIM 

T TAB(7) 'Quantas poliaa(2,4 ou 

6)?"i 

110 AS-INKEY$:IF AS<>''2" AMD A$ 

<>"4" AND A$ <>"6" THEN 110 

120 PBINT AS:NP-VAL'(AS) :L-Z5«NP 

-50 

130 PRINT: PRINT TAB(7)"Forca n 

ecesB^ria -" : INT (1000/NP) ;"Kg": 

PRINT TAB (7) 'para levantar 1 to 

nelada-'FOR G-1 TO 4000: NEXT 

1000 CLS: SCREEN 2 

1010 LINEt0.0)-(255.10) ,5,BF 

1020 FOR K-1 TO NP STEP 2 

1030 CIRCLE(232-K*26.33) .13.2;P 

AINT(232-K''26,33) .2 

1040 LINE(232-K*26,33)-(232-K*2 

6.X0) 

1050 NEXT K 

1060 LINE(208.32)-t256-NP*26.34 

) BF 

1070 FOR V-0 TO -30 STEP -5 

1080 GOSUB 1500 

1090 FOR I-l TO 300:NEXT I 

1100 NEXT V 

1110 FOB 1=1 TO 2000: NEXT I 

1120 GOTO XOO 




1500 LINEC194-L-NP-12/NP.75-3*( 

V+5) )-{196-L-NP+12/NP.75+30/NP- 

3«(V+5) ) ,1.BF 

1510 LINE C195-L-NP, 33) - tl95-L-N 

P.75-3*U) .2 

1520 LlNEtl94-L-NP-12/NP.75-3*y 

) - (196-L-NP+12/NP, 75+30/NP-3*V) 

.lO.BF 

1530 LINE(249,175+y)-(215-L.107 

+U) .l.BF 

1540 FOR K=l TO NP STEP 2 

1550 CIRCLE (258-K*26,121+V) ,13, 

2;PAINT(25e-K*26.121+V) ,2 

1560 NEXT K 

1570 LINEC245.10+V)-(245.121+V) 

.2 

1580 FOR K-1 TO NP-1 

1590 LINE{246-K*26,35)-(Z46-K«2 

6,121+V) ,2 

1600 NEXT K 

1610 LINE (234, 120+V)-(Z8Z-NP«26 

,122+U) . .BF 

1620 LINE(232-L*2/3.121+V)-<232 

-L*2/3,141+V) 

1630 LlNE(232-L/3,121+V3-(232-L 

/3,141+V) 

1640 LINE-(232-L*2/3,141+V) 

1650 LINE(232-L/2,141+V)-{232-L 

/2.151+V) 

1660 DRAW''C8L9D19H19U19L9" 

1670 RETURN 



acEa 



10 E - 780 

20 F - INT (E / 256) 

30 POKE 232, E - F « 256: POKE 

233, F 

40 FOR I =• E TO E + 41 + 1 « 3 

2 

SO READ A: POKE I ,A 

60 NEXT 

70 SCALE- 1: ROT- 

80 DATA 20 ,0 ,42 ,0 ,74 ,0 

,106 .0 ,138 ,0 ,170 ,0 ,202 .0 

,234 ,0 .10 ,1 ,42 ,1 ,74 ,1 . 
106 ,1 ,138 ,1 ,170 ,1 ,202 ,1 
,234 ,1 ,10 ,2 ,42 ,2 ,74 ,2 ,1 
06 ,2 ,138 ,2 
90 DATA ,72 ,45 ,109 ,209 

,251 ,219 ,23 ,77 ,73 ,169 .25 
1 ,219 ,27 ,110 .73 .9 ,213 .22 




3 ,219 ,115 ,77 ,9 ,141 ,219 ,6 

3 ,255 ,2 ,0 ,0 ,0 ,0 

100 TEXT : HOME : UTAB tlO) : H 

TAB (7) : PHINT "QUANTA3 POLIAS 

? (2,4 00 6> '! : GET NP 

110 IF NP < > 2 AND NP < > 4 

AND HP < > 6 THEN 100 
120 PRINT NP 

130 HGB : HCOLOR- 3: UTAB (23) 
: PRINT "FORCA NECESSAHIA-" ; IN 
T (1000 / NP);- KO*: PHINT 'PAB 
A LEVANTAH 1 TONELADA" 
1000 FOB I - TO 9 
1010 HPLOT O.I TO 255,1 
1020 NEXT I 

1030 FOR K = 1 TO NP STEP 2 
1040 DRAW 1 AT 147 - K « 8,33 
1060 NEXT K 

1070 FOR I = 1 TO NP STEP 2 
1080 HPLOT 135 - (I - 2) * 8,1 
TO 135 - (1 - 2) * e,34 
1090 NEXT r 
1100 HPLOT 143,34 TO 143 - (NP 

- 2) * 0.34 
1110 FOB y = TO 36 STEP 3 
1115 HCOLOR= 3: GOSUB 1500 
1120 FOR T - 1 TO 500: NEXT T 
1125 IF U - 36 THEN GOTO 1150 
1130 HCOLOR- 0: GOSUB 1500 
1140 NEXT V 
1150 FOB T - 1 TO 2000: NEXT T 



1160 
1500 
1510 

- V 
1520 
1530 

V 
1540 
1650 
55 - 
1560 
1570 



GOTO 100 
FOR K - 1 
DRAW 1 AT 



TO NP STEP 2 
155 - K * 8,121 



NEXT K 

HPLOT 155.10 TO 155,123 - 



FOB K = 1 
HPLOT 155 
K * B,123 
NEXT K 
HPLOT 138 



34 TO 138 - 
P / 2 « V 



1580 
1590 

+ 1,38 + 
P - 2) * 



FOR I - 
HPLOT 138 
NP 

a 



TO NP - 1 

- K « 8, 34 TO 1 
- V 

- (NP - 2) * 8, 
(NP - 2) * 8.38 + N 

- - 1 TO 1 

- (NP - 2) * 8 
* U TO 138 - (N 

38 + 36 / NP -t- N 



/ 2 
+ I- 



P / 2 * V 
1600 NEXT I 
1610 HPLOT 151 
- (NP - 2) * 8, 
1620 HPLOT 151 

* 8.123 - V TO 
1) « 8,128 - U 
1630 FOB I = 
1640 HPLOT 151 

* 8 + 1,128 ~ U 
2-1) * 8 + r. 
1650 NEXT I 
1660 RETURN 



,123 - V TO 151 
123 - U 

- (NP / 2 - 1) 
151 - (NP / 2 - 

- 4 TO 4 

- (NP / 2 - 1) 

TO 151 - CNP / 
135 - V 



O programa comeca perguntando se 
voce quer um sistema de duas, quatro 
ou seis polias. Em seguida ele mostra na 
tela peso necess^o para levantar uma 
carga de 1000 kg. A partir da linha 1000, 
o computador desenha as roldanas fi- 
xas, e, na IJnha 1500 (na versao para o 
MSX, Apple e TK-2000) ou 90 (TRS- 



Color e Spectrum), ele constr6i e movi- 
menta as roldanas e os pesos. 

No programa para o Apple e o 
TK-2000, as linhas 10 a 90 introduzem 
uma tabela de dados que permite dese- 
nhar circulos por meio do comando 
DRAW. 

Ao executar o programa, voce obser- 
varti que quanto maior for o numero de 
polias menor serd o peso necessario pa- 
ra levantar a carga. Para calcular o peso 
em um sistema desse tipo, basta dividir 
a carga pelo numero de polias. Se voce 
quiser levantar 1000 kg, usando seis po- 
lias, devera empregar um peso de apro- 
ximadamente 166 kg. Em alguns casos 
ocorre o contrario: sabe-se quanto pesa 
a carga e qual a for^a mixima disponi- 
vel. Nesse caso, divide-se a carga pela 
for?a e arredonda-se o resultado paxa o 
maior numero par. Por exemplo, voce sa- 
be que consegue levantar 60 kg usando 
s6 uma polia; logo, para levantar 250 kg, 
voce deveri utilizar seis polias. 



POUPANDO ESFORCOS 



Como no caso da alavanca, tambem 
em um sistema de polias a forga esta re- 
lacionada com a distancia. VocS pode 
notar. em nossa simulavao, que quanto 
maior 6 o numero de polias mais a ex- 
tremidade livre da corda se aproxima do 
chao. Isso mostra que, para levantar um 
peso a uma certa altura usando uma for- 
ga menor, voce teri que puxar, para 
compensar, uma corda de comprimen- 
to maior. Na verdade, em um sistema 
desse tipo, o numero de polias jd deter- 
mina qual serd o comprimento da cor- 
da que precisareraos puxar para que a 
carga suba cm uma unidade. Por exem- 
plo, em um sistema de duas polias, te- 
mos que puxar dois metros de corda pa- 
ra que a carga suba um metro. 

O sistema que nosso programa Simu- 
la na tela do microcomputador nao e o 
mais eomum. Em geral, as barras pas- 
sam pelo centro das roldanas, manten- 




Sinmla^sio das polias no MSX. 



do-as paralelas e bem pr6ximas. Um sis- 
tema de seis polias seria visto, entao, co- 
mo tres discos colados um ao outro, na 
vertical, e, abaixo deles, pendurados pe- 
las cordas, mais tres discos, onde se 
prende a carga. 



ELEVADOR HIDRAULICO 



Outro instrumento que funciona da 
mesma maneira que a alavanca e o ele- 
vador hidriulico. Ele i utilizado para le- 
vantar grandes cargas — de automdveis 
ate foguetes e avioes. 

O freio dos autoradveis atuais, que 
funciona baseado em um principio iden- 
tico, mostra como a forga de nossos pes 
pode ser amplificada a ponto de parar, 
em um tempo muito reduzido, o movi- 
mento de um corpo tao pesado. 



SIMULACAO 



Para observar o funcionamento do 
elevador hidr^ulico, digite e rode o pro- 
grama a seguir. 



30 BORDER 0: PAPER 7: INK 0: 

CLS 

50 GOSUB 300 

90 INPUT "Curao do enbolo (1- 

90) ? "itr 
100 IF tr<l OR tr>90 THEN 

GOTO 90 
110 FOB k-1 TO tr 
120 PLOT 40,12B-(k-l) ; DRAW 
INK 7 J 10,0: PLOT 40,128-k: 
DRAM 15 , 

130 PLOT 175,127+(k-l)/lOi 
DRAW INK I [56,0: PLOT 175.127 
■t-k/lOr DRAW INK I !56,0 
135 PRINT INK 0;AT 3.5;k! INK 
OiAT 3,25!lNT (k/10) 
140 NEXT k 

150 INK 0: PRINT AT 21. Oi" 
Novamente ? (a OH n) 
160 IF INKEYS-"fl" THEN RUN 
170 IF INKEYSO'n" THEN GOTO 
160 

IBO STOP 

300 FOR n-6 TO 18: PHINT 
PAPEB 1;AT n,5i" " : NEXT n 
310 FOB n'6 TO 18: PRINT 
PAPER 1;AT n,22i" ": 
NEXT n 

320 FOR n=lS TO 21: PRINT 
PAPER 1;AT 0.5:' 

" : NEXT n 
3 30 PLOT 39,155: DRAW 0.-155: 
DRAW 192,0; DRAW 0.155: PLOT 
56,155: DRAW 0,-124: DRAW 120, 
0; DRAW 0,124 

340 PLOT 40,127: DRAM -2.0: 
PRINT AT 6,3:"0-: PLOT 40.37: 
DRAW -2,0: PRINT AT 17, 2; "90": 

PLOT 232,127: DRAW 2,0: PRINT 



AT 6.30!-0" 

350 PLOT 232,137: DRAU 2,0: 

PRINT AT 4, 30; "9" 

360 FOB n-127 TO 37 STEP -10 

370 PLOT 40, n: DRAW -2,0: NEXT 

n 

380 PLOT 232,132: DflAW Z.O 

390 PLOT 120,35: DRAW 0,-35 

400 PLOT 110,40; DRAW 20.0: 

DRAW -5,5: DftAW 5,-5: DRAW -5, 

-5 

410 INK 7 

440 RETURN 

□ 

10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 DIM P{4) ,Et31} 

50 GOSUB 300 

60 GET{32,52)-(43.38) ,P,G 

70 GET(182,52>-C223,23) .H.G 

BO IF INKEY3-"" THEN BO 

90 CLS: INPUT "DESLOCAMENTO DO EM 

BOLO (1-90) "iTR 

100 If Tft<l OR TB>90 THEN 90 

110 SCREEN 1.0: FOR K-1 TO TH 

120 PUT(32,52+K)-C43.38+K) .P.PS 

ET 

130 PUT(182,&2-K/10)-(223,23-K/ 

ID] ,R,PSET 

140 NEXT 

150 IF INKEYS-"' THEN 150 

160 CLS: PRINT " NOyAMENTE tS/N) 

?' 
170 AS-INKE5f5: IF A5<>"S" AND AS 
<>"N" THEN 170 
180 IF AS="S" THEN RUN 
190 CLS: END 

300 DRAW"BM30,30C2D131R195U131B 
L45D2 0NR45D96L13SU96NL15U20'' 
310 PAINT{200, 70) , 3,2 
320 DRAW''BM32.50C3H10BR140H41" 
330 DRAW"BM127.161C2U20BH8C4H16 
NHSGS" 

340 LrNE{34,4B)-(4I,41) ,PSET,BF 
350 LINE(191,48)-(215,23) ,PSET, 
BF 

360 FOR K=0 TO 9 

370 COLOR 2:LINE(26.50+K*10)-<3 
0,50+K*10) ,PSET 
380 NEXT 

390 DRAW'*BM20 , 46C4D6L4U6R4BD90N 
L4D6L4U6BL4ND6L4D3R4C2" 
400 FOR K-0 TO 9 STEP 3 
410 LINE(225,50-K)-C229,50-K) .P 
SET 

420 NEXT 

430 DHAW"BM232.48C4D6B4U6L4BU9N 
R4U3R4D6" 
44 RETURN 



m 



10 SCREEN 0: COLOR 1,14,14 

20 LOCATE 3,10:INPUT'0ual o cur 

BO do *«bolo(l-90)"iC 

30 IF C<1 OR O90 THEN 20 

40 OOSUB 300 

50 FOR 1-0 TO C-1 

60 LINE{31.37+I)-{44.50+I) ,14,B 

F 



70 LINE(34, 50+1} -(39,43+1) ,15,B 

F 

80 LINE{iei,SO-I/10)-(225,50-I/ 

10). 2 

90 LINE{191,23-I/10)-(215,4B-I/ 

10) .IS.BF 

100 NEXT I 

110 IF 1NKEY3-"" THEN 110 ELSE 

GOTO 10 

300 SCREEN 2 : COLOR 15,14,14 

310 DRAW"BM30,30C2D131R195U131B 

L4 5D20NR4 5D96L135U96NL15U20'' 

320 PAINT (200, 70) .2,2 

330 DRAW"BM32,50C3R10BR140R41' 

340 DHAW-BM127,161C2U20BH8C4R16 

NHSQS" 

350 LINE(34,48)-(39,41} , ,BF 

360 LINE(191,48)-<215,23) , ,BF 

370 FOR K-0 TO 9 

380 LINE(26,50+K*10)-t30,SO+K«l 

0),2 

390 NEXT K 

400 DRAWBHSO . 46C4D6L4U6R4BD90N 

L4D6L4U6BL4ND6L4D3R4C2' 

410 FOB K-0 TO 9 STEP 3 

420 LINE(225,50-K)-C229,50-K) 

430 NEXT K 

44 DRAU*BM232,4BC4D6R4U6L4BU9N 

R4U3R4D6" 

450 RETURN 



HIE] 



20 HOME : RTAB (5): VTAB (10) 

30 INPUT 'QUAL O CURSO DO EMBO 

LO(1-90)? "iC 

40 G03UB 300 

50 FOR I - 1 TO C - 1 

55 HCOLOR- 

60 HPLOT 31,49 + I TO 44,49 + 

I 

70 HPLOT 34,42 + I TO 39.42 + 

1 

80 HCOLOH- 3 

90 HPLOT 34,49 + I TO 39.49 + 

I 

100 HPLOT 1B1.50 - I / 10 TO 2 

24.50 - I / 10 

110 HPLOT 193.25 - I / 10 TO 2 

15,25 - I / 10 

120 NEXT I 

130 FOR T - 1 TO 5000: NEXT T: 

TEXT : GOTO 20 
300 H0R2 : HCOLOH- 3 
310 HPLOT 30,30 TO 30,161 TO 2 




A nlavanca na tela do TRS-Color. 



25,161 TO 225,30 

320 HPLOT 180,30 TO 180.146 TO 

45,146 TO 45,30 
330 FOR I - TO 96 
340 HPLOT 30,50 + I TO 45,50 + 

r 

350 HPLOT 180,50 -•- I TO 225,50 

+ I 
360 NEXT I 
370 FOR I - TO 15 
380 HPLOT 30.146 + I TO 225,14 
6 + 1 

390 NEXT I 
400 FOR I - TO 9 
410 HPLOT 26,50 + I « 10 TO 30 
,50 + I * 10 
420 NEXT I 

4 30 FOR 1 - TO 9 STEP 3 

440 HPLOT 225,50 - I TO 229,50 

- I 
450 NEXT I 

460 HPLOT 20,46 TO 20,53 TO 15 
,53 TO 15,46 TO 19,46 
470 HPLOT 11,140 TO 7,140 TO 7 
,136 TO 11,136 TO 11,143 TO 7,1 
43 

480 HPLOT 20,136 TO 20,143 TO 
15,143 TO 15,136 TO 20.136 
490 HPLOT 232,48 TO 237,48 TO 
237,55 TO 232,55 TO 232,48 
500 HPLOT 232,42 TO 237,42 TO 
237,35 TO 232,35 TO 232,39 TO 2 
37.39 

510 HPLOT 103.140 TO 117.140 T 
110,136; HPLOT 117.140 TO 110 
.144 

5 30 FOR J - 1 TO 14 

540 HPLOT 34.43 + J TO 39.43 + 

J 

550 NEXT J 

560 FOR K = 1 TO 26 

570 HPLOT 191.24 + K TO 215.24 

+ K 

580 NEXT K 

590 RETURN 

Inicialmente, o computador pergun* 
ta quanto voce quer que o emboto des- 
Ca, em um intervale de 1 a 90. A rotma 
que comega na linha 300 desenhaii o 
elevador e o la^o da linha 1 10 (na ver- 
sio para OS micros Spectrum e TRS- 
Color) ou da 50 (MSX, Apple e 
TK-2000) deveri movimcnti-lo. 



PfilNCIPIOS 



Quanto maior for o diimetro do 8m- 
bolo maior ter^ que ser a for^a aplica- 
da. Na nossa simula^ao, ele i bem me- 
nor que o diijnetro do elevador; portan- 
to, a for^a para empurrd-lo para baixo 
seri bem menor que o peso do objeto 
a ser levantado. Observamos, porto. 
que, assim como no caso das polias, o 
trajeto do Smbolo 6 maior que a altura 
da carga — ou seja, teremos que mover 
o Smbolo em v^jas unidades para que 
o elevador suba uma s6. 



fOGRMMACAOBAl 




TECLAS MOLTIFLAS 



No contmie de jogos, o joystick ganha 
em sofisticapgo, enquanto o tectado 
86 destaca pela versatilidade. Veja 
como fazer para que sejam detectadas 
vdrias teclas ao mesmo tempo. 



F 



Uraa das caracteristicas mais impor- 
tantes num jogo 6 a qualidade de inte- 
racao computador-usuirio. Na maioria 
dos casos, joystick oferece urn contro- 
le mais sofisticado, mas o teclado o su- 
pera, sem diivida alguma, no que diz 
respeito 4 versatilidade. 

Em geral, iitilizam-se os comandos 
INKEY$ c GETS para detectar se uma 
tecla esti sendo pressionada. Esses co- 
mandos, por6m, apresentam uma defi- 
dencia: s6 sao capazes de detectar duas 
teclas ao mesmo tempo caso uma delas 
seja SHIFT (ou similarcs, como CTRL 
ou SYMBOL/SHUT). 

A detecgao de tais combinacOes € su- 
ficiente para a maior parte dos propb- 
sitos, mas nao para todos. Se quisdsse- 
mos, por exemplo, controlar os movi- 
mentos venical e horizontal de uma na- 
ve, disparar o laser e lan^ar bombas, si- 
multaneamente, sen'amos obrigados a 
acionar quatro teclas. A solufao para es- 
se tipo de problema depende do prbprio 
computador, 



Ef EITO DO ACIONAMENTO DAS TECLAS 



Para entender como se dd a detec?ao 
multipla, precisamos examinar os meca- 
nismos que permitem ao computador 
saber qual tecla esti sendo pressionada. 
Os micros pessoais utilizam, comumen- 
te, dois processos. O primeiro consiste 
em "varrer" o teclado de tempos em 
tempos, verificando se alguma tecla foi 
pressionada. No TRS-Color, por exem- 
plo, o teclado i "varrido" a cada 1/lCX) 
de segundo; jd no MSX, isso ocorre a 
cada 1/60 de segundo. 

No segundo processo, o acionamen- 
to de uma tecla gera uma mensagem — 
chamada intenupcao — , que e enviada 
ao processador. O computador inter- 
rompe sua tarefa e verifica o teclado, em 
busca da tecla pressionada. Esse m^to- 
do i bem mais eficiente e versdtil que o 
da varredura, porque dispensa a verifi- 
ca(;ao das teclas quando nao estSo sen- 
do acionadas — ou seja, o primeiro mi~ 
todo varre o teclado de tempos em tem- 
pos, mesmo que nenhuma tecla seja 
acionada; o segundo s6 faz a varredura 
quaodo hd acionamento de teclas. 

Seja qua! for o m^todo utilizado, o 



computador deve ser capaz de identifj- 
car a tecla acionada o mais rapidamen- 
te possivcl. A maioria dos tcclados em- 
prega um sistema denominado gerador 
de matriz, fornecendo ao computador 
um niimero que identifica a posigdo da 
tecla na matriz. O que vai ocorrer de- 
pots da geracao do niimero varia de m&- 
quina para m^quina. 



O teclado do Spectrum comp0e-se de 
quatro fileiras com dez teclas cada. Su- 
pondo que cada fileira seja dividida ao 
meio, teremos oito fileiras com grupos 
de dnco teclas. Cada grupo, por sua 
vez, tern comunica^ao com uma porta 
de entrada/saida. O teclado do Spec- 
trum facilita a detec?io de vdrias teclas 
acionadas ao mesmo tempo, pois pos- 
sui 65536 dessas portas, identificadas 
por niimeros de a 65535. A tabela a 
seguir fornece o enderefo da porta pa- 
ra cada um dos oito grupos: 



TECLAS 


GRUPO 


POHTA 


V C X 2 CAPS /SHIFT 





65276 


GFDSA 


1 


65022 


QWERT 


2 


64510 


54321 


3 


63486 


67890 


4 


61438 


Y U 1 P 


5 


57342 


H J K L ENTER 


6 


49150 



B N M SYM/SHIFT ESPAQO 



32766 



Para calcular o enderego da porta de 
cada grupo, use esta f6rmula: 

254 + 256*(255-2Tn) 

Nessa fdrmula, n significa o niimero 
do grupo listado na tabela. 

Digite e rode o programa a seguir. Ele 
calcula o endere^o da porta para um cer- 
to grupo de teclas. 

10 INPirr "DIGITE NUMERO DO OR 

UPO DA TECLA "in 

20 PRINT ■ "NtTMERO DO GRUPO DA 

TECLA 'in 
30 PRINT "ENDERECO DA PORTA ' 
[254+256* (255-Z-n) 
40 GOTO 10 



Cada enderego de porta na tabela da- 
da anteriormente assume um valor, de- 
pendendo da tecla pressionada. 

Para usar corrclamente o prdximo 
programa, remova a impressora ou 
qualquer outra interface. Caso contri- 
rio, OS resultados serao alterados. Digi- 
te estas linhas, rode, e acione de dife- 
rentes maneiras as teclas de 1 a 5, inclu- 
sive vdrias ao mesmo tempo: 

10 PRINT AT O.OilN 63486 

20 GOTO 10 

Observe que os niimeros exibidos na 
tela mudam conforme a combina^ao de 
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EFEITO DO ACIONAMENTO 



DAS TECLAS 



COMO FUNCIONA 



SEU TECLADO 



OS DIFERENTES M^TODOS 



CONTROLE DO JOGO 



A MATRIZ DO TECLADO 



DETECCAO MULTIPLA 



DE VARIAS TECLAS 



UM TECLADO A QUATRO MAPS 



teclas acionadas, O valor no endere^o 
da porta d armazenado em am linico 
byte, no qual o quinto bit i sempre 1 . 
NormaJmente, o sexto e o s6timo bits 
sac 0. Por^m, quando houver um sinal 
no soquete EAR, ou quando o compu- 
tador esquentar, o sexto bit passa a ser 
1 . Os bits de a 4 represcntam as teclas 
do grupo. Cada bit assume valor 1 
quando a tecla correspondente a ele nao 
estiver sendo pressionada e valor 0, 
quando esta for pressionada. O quarto 
bit corresponde k tecla da extrema es- 
querda do grupo e o bit zero k tecla da 
extrema direita. 



Quando um determlnado bit cont^m 
o valor 1 , ele contribui para o valor que 
esti na porta; quando seu valor i 0, nSo 
contribui com nada. A contribuifao de 
cada bit para o valor na porta estd na 
tabela a seguir: 

SIT 8 7 6 5 4 3 21 

C0NTRI8U1CA0 1 28 64 32 16 8 4 2 1 

Portanto, se o sexto bit for (nada co- 
nectado em EAR) e a tecla 5 estiver sen- 
do pressionada, a disposi^ao dos bits na 
porta 63486 sera 001 01 111. o que equi- 
valeaO+0+32+0 + 8+4 + 2+l=47. As- 




sim, podemos detectar o acionamento 
das cinco teclas de um grupo. O mesmo 
se aplica aos outros grupos de teclas. 
Poden'amos, por exemplo, acrescentar 
ao programa linhas que imprimissem na 
tela valor de cada porta. 



As teclas do TRS-Color estao dispos- 
tas numa matriz de sete linhas por oito 
colunas. Sao necessdrios nove bytes de 
memdria para armazenar o estado de 
uma linha e de seus oito elementos. Dos 
nove bytes, o primeiro contem o estado 
da linha e os outros oito, o de cada um 
dos oito elementos dela. O arranjo da 
matriz e o metodo usado na decodifica- 
fao da linha fazem com que, normal- 
mente, seja impossi'vej detectar mais de 
uma tecla ao mesmo tempo. 

No entanto, podemos "enganar" o 
varredor de teclado, levando-o a nSo de- 
tectar nenhuma tecla numa certa linha, 
o que, na varredura seguinte, o obriga- 
ria a assumir qualquer tecla como uma 
nova ocorrencia. Para isso, e necessi- 
rio colocar no primeiro byte o valor he- 
xadecimal FF, produzindo uma altera- 
93o no estado das linhas. 

Esse mdtodo nao i raulto satisfat6- 
rio, pois requer frequentes mudancas ao 
longo do programa. Mas hi uma solu- 
(jao alternativa: chamar uma retina em 
linguagem de maquina para for? ar uma 
varredura completa do teclado, sempre 
que precisarmos. Como voce vera, esie 
foi o sistema usado nos programas que 
apresentaremos mais adiante. 
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No TK-2000, as teclas estao dispos- 
tas num gerador de matriz de oito linhas 
por seis colunas. Existem dois endere- 
?os de mem6ria que trabalham com a 
matriz: o endere^o - 16384, ao qual de- 
mos o nome de KBOUT, e o - 16368, 
que chamamos de KBIN. KBOUT con- 
trola o estado das linhas da matriz. Ca- 
da um de seus bits i responsive! por 
uma linha na matriz de tecla. Se um bit 
de KBpUT possui valor 1, todos os ele- 
mentos (teclas) da linha corresponden- 
te tamb^m serao iguais a 1. 

KBIN, por sua vez, controla o esta- 
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que d roll-over? 

Esta § uma expressSo inglesa que 
deslgna uma carscterlstica do proces- 
sador de teclados de algumas linhas de 
microcomputadores: a possibilidade de 
arrnazenar em uma mem6rta interme- 
di^ria {buffer de teclado) as n ultimas 
teclas pressionadas. 

numero de teclas digrtadas que a 
computador consegue armazenar de- 
pende do tamanho do buffer de tecla- 
do {se for fixado em hardware) e do 
software da processamento do teda- 
do. Por isso, falamos em n-key-rotl- 
over, ou seja, quantas teclas o roll-over 
6 capaz de processar. Alguns compu- 
tadores tSm roll-over de dues a cinco 
teclas; outros, de at6 128. 

Qual 6 a vantagem de dispor da roll- 
over r>o teclado de um micro? Bern, cer- 
tos softwares (sobretudo processado- 
res de texto) nio conseguem acompa- 
nhar um ritmo mais acelarado de digi- 
tagao. Se nSo houver a capacidade de 
roll-over, o computador acaba limitan- 
do o lisuirio, que comega a "perder" 
vdrtas teclas pressionadas rapidamen- 
te, levando a erros irritantes de digita- 
93o. roll-over afasta esse risco, pois, 
mais cedo ou mais tarde, o programs 
acaba "slcanipando" o digitador. 
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do dos dementos de cada Utiha. Somen- 
te OS bits de a 5 de KBIN sao usados, 
j4 que existem apenas seis elementos em 
cada linha. Os bits de KBIN s6 leem o 
valor contido nas teclas corresponden- 
tes quando estas sSo pressionadas — ou 
seja, se nenhuma tecla estiver sendo 
pressionada, KBIN vale (todos os bits 
sio iguais a zero). Esse enderego rcqucr 
uma atengSo especial, uma vez que 1§ ex- 
clusivamente colunas. Se quisermos sa- 
ber a que linha pertencem os elementos 
(teclas) lidos por KBIN, precisaremos 
identificar o valor contido em KBOUT. 

Para forgar a varredura do teclado, 
foi necess^o montar uma rotina em [in- 
guagcm de miquina. Essa rotina, arma- 
zenada a partir do enderego 770 no pd- 
meiro programa, procura pelo aciona- 
mento de cinco teclas especificas: as 
quatm setas e a barra de espago. A pres- 
sSo sobre qualquer outra tecla nao terd 
nenhum efeito, 

A rotina usa os enderegos 900 a 904 
come indicadores do estado das teclas. 
Se o valor for 1, a tecla foi acionada; 



sc for 0, nSo houve pressao sobre ela. 
Como se pode observar nas linhas 135 
a 155, esses enderegos sio constante- 
mente zerados. Isso i feito para a roti- 
na nao "pensar" que a tecla correspon- 
dente estd sempre pressionada. 

Remova o POKE 900,0 da linha 135 
e veja o que ocorre com a mira quando 
se aperta a tecla t. Ela comega a subir 
e nao pdra mais. Foi preciso usar ende- 
regos (900 a 904) como indicadores por- 
que, coincidentemente, todas as cinco 
teclas em questao sao lidas pelo mesmo 
bit de KBIN — ou seja, na matriz, elas 
estao em linhas diferentes mas em colu- 
nas iguais. 

A rotina do segundo programa fun- 
ciona de maneira semelhante, detectan- 
do seis teclas em vez de cinco. O ende- 
rego inicial foi deslocado para 36900 e 
os indicadores aparecem a partir de 
36800. Essa rotina apresenta um aper- 
feigoamento: os indicadores sSo zerados 
dentro dela prbpria. 
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A matriz que cont^m as teclas do 
MSX 6 maior que a dos outros micros: 
compoe-se de dez linhas com oito colu- 
nas cada, totalizando, assim, oitenta.te- 
clas. Nela existem duas portas de cbn- 
trole. A de enderego 1 70 ativa a linha 
que desejamos ler, enquanto a de ende- 
rego 169 contim o estado das teclas da 
linha ativada, sendo que cada tecla cor- 
responde a um de seus bits. 

Para simplificar, chamaremos a por- 
ta que ativa as linhas (170) de porta C, 
e a que IS as colunas, de porta B. A por- 
ta C usa somente os bits de a 3 para 
ativar sequencialmente cada uma das 
dez linhas. Isso ^ possivel gragai a um 
decodificador localizado entre a porta 
C e a matriz. As linhas da matriz de te- 
clas sio numeradas de Oa 9. Para ativ4- 
ias, basta fornecer k porta C o numero 
da linha desejada. Ao se ativar uma li- 
nha, todas as suas colunas (teclas) assu- 
mem o valor 1. Quando se pressiona 
uma tecla pertencente a uma linha ati- 
vada, bit da porta B correspondente 
a essa tecla € zerado. Portanto, se ati- 
varmos uma linha atravds da porta C, 
e, logo em seguida, lermos a porta B sem 
que nenhuma tecla seja acionada, vere- 
mos que a porta B tern valor 255, ou se- 
ja, todos OS oito bits t6m valor igual a 1 . 

O programa a seguir ativa a linha 8 
da matriz — que cont^m as teclas das 
setas e barra de espago — e, em segui- 
da, le a porta B, verificando quais bits 
foram zerados, isto 6, quais teclas foram 
acionadas. 



Os usu^rios do Apple devem ter no- 
tado a ausfincia de programas para esse 
micro. ^ que o m^todo utilizado pelo 
Apple para detectar teclas toma quase 
impossivel — dentro dos prop6sitos des- 
te artigo — criar rotinas que detectem 
acionamento multiplo de teclas. 

Os programas apresentados a seguir 
permitem-nos mover uma raira pela te- 
la e tamb^m atirar. Nos micros TRS- 
Color, MSX e TK-2000, use as setas pa- 
ra mover e a barra de espago para ati- 
rar. No Spectrum, use as setas para mo- 
ver e o mimero 9 para atirar. Os pro- 
gramas do TRS-Color e do TK-2000 re- 
querem um pequeno programa em lin- 
guagem de mdquina para detectar as 
teclas. 
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10 CLEAR 200,32746 

20 rOR K-32747 TO 32767:BKAD A: 

POKE K. A: NEXT 

30 DATA 48,140,9,191,1,155,134, 

126.183,1,154,57,52,3,134,127.1 

83,1,81,53,131 

35 EXEC 32747 

40 V-247:P-129S:L-1295rCLS3 

50 IF PEEK (341) -V AND P>1055 TH 

EN P«=P-32 

60 IF PEEK (342) -V AND P<1504 TH 

EN F-P+32 

70 IF PEEK{343)-U AND P>1024 TH 

EN P-P-1 

80 IF PEEK (344) -V AND P<1535 TH 

EN P-P+1 

90 IF PEEK (345) -U THEN SOUND 20 

0,1 

100 POKE L,175:POKE P,43:L"PlOO 

TO 5 

Digite e rode o programa do TRS- 
Color para se certificar de que nao hi 
erros. Em seguida, acrescente a linha 35 
e rode-o novamente. 

35 EXEC 32747 



10 BORDER 0: PAPER 0: INK 


20 CLS 








30 LET y-ll: LET 


X-15 




40 LET P-634B6 






50 QOSUB 220 






60 IF i-31 


THEN 


OOSUB 


290 


70 LET p-61438 






60 GOSUB 220 






90 IF i-59 


THEN 


GOSUB 


380 


100 IF i-47 


THEN 


GOSUB 


320 


110 IF i-55 


THEN 


GOSUB 


350 


120 IF i-6l 


THEN 


GOSUB 


410 


130 IF 1-57 


THEN 


GOSUB 


380 


GOSUB 410 








140 IF i-45 


THEN 


GOSUB 


320 


GOSUB 410 








150 IF i-53 


THEN 


GOSUB 


350 


GOSUB 410 








160 IF i-43 


THEN 


GOSUB 


360 
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QOSUB 320 

170 IF i-51 THEN GOSUB 380: 

G03UB 350 

180 IF i-41 TH£N GOSUB 360: 

GOSUB 320: GOSUB 410 

190 IF 1-49 THEN GOSUB 360: 

GOSUB 3S0: GOSUB 410 

200 GOSUB 250 

210 GOTO 40 

220 LET i-IK p 

230 IF i>191 THEN LET 1-1-61 

24 RETURN 

250 PRINT AT y,x;" + " 

260 PBINT AT y+l.x?" • 

270 PRINT AT y-l,x;" 

2S0 RETURN 

290 IF x<l THEN RETURN 

300 LET x-x-L 

310 RETURN 

320 IF y>19 THEN RETURN 

330 LET yy+1 

340 RETURN 

350 IF y<2 THEN RETURN 

360 LET y-y-1 

370 RETURN 

380 IF x>2B THEN RETURN 

390 LET x-x+l 

400 RETURN 

410 SOUND .004,20 

420 SOUND .004,10 

430 PRINT AT y,X!" 

440 RETURN 
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10 COLOR 1.5.StSCREEN2,l 

20 X-120:«-90:H-240:B-169:C-170 

30 FOR K-1 TO 8; READ A 

40 B$-B5+CHHS(A) 

50 NEXT 

60 DATA 129,66,60,36,36,60,66,1 

29 

70 SPRITES (0)-B3 

80 OUT CCINPtC) AND H)OB B 

90 I-INP(B) 

100 IF (I AND 12B)<-0 THEN X-X+3 

110 IF (I AND 64) -0 THEN Y-Y+3 

120 IF(I AND 32)-0 THEN Y-Y-3 

130 IF(1 AND 163-0 THEN X-X-3 

140 IF (I AND U-0 THEN PLAY"L64 

BAC- 

ISO PUTSPHITE 0, (X, If) ,1,0: GOTO 

BO 
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10 HOME 

15 FOR K - 800 TO 804 

20 READ A 

25 POKE K,A 

30 NEXT 

35 DATA 64.32,16,8,4 

40 FOR K - 770 TO 793 

45 READ A 

50 POKE K,A 

55 NEXT 

60 DATA 162.0.189,32,3,141 

65 DATA 0.192,169,1,45.16 

70 DATA 192,240,3,157,132,3 

75 DATA 2 32,2 24,3.208,235.96 

eO HGR2 

85 H - 138 :V - 96 

90 X - 138:Y - 96 



95 HCOLOR- 

100 HPLOT H,U TO H + 4,U 

105 HPLOT H+2.U-2TOH+2 

TO W + 2 
110 H - X:W - y 
115 HCOLOH- 3 
120 HPLOT X.Y TO X + 4,Y 
125 HPLOT X + 2,Y - 2 TO X + 2 
.Y + 2 

130 CALL 770 
135 IF PEEK (900J - 1 AND Y > 

3 THEN Y - Y - 2: POKE 900,0 
140 IF PEEK (901) - 1 AND Y < 

188 THEN Y - Y + 2: POKE 901,0 

145 IF PEEK (902) - 1 AND X < 
274 THEN X - X + 2: POKE 902,0 

150 IF PEEK (903) - 1 AND X > 

1 THEN X - X - 2: POKE 903,0 
155 IF PEEK (904) - 1 THEN P 
RINT CHH$ (7): POKE 904,0 
160 GOTO 95 



UM TECLADO A QUATRO MAOS 



Rodando o programa a seguir, vocS 
verS, logo ap6s a introdu^ao, dois seres 
vestindo "traje lunar", em posicSo de 
duelo. Este jogo foi feito para dois jo- 
gadores. No Spectrum, as teclas de co- 
mando sao as seguintes: 1 move o scr da 
esquerda para cima, Q, para baixo, c A 
dispara o laser; 0, P e E controlatn os 
movimentos do ser da direita. No TRS- 
Color, o jogador da esquerda usa as se- 
tas para cima e para baixo e a tecla Z; 
o da direita usa - , @ c /. No MSX, o 
da esquerda usa E, D e F; o da direita 
usa I, J e H. No TK-2000, finalmente, 
o jogador da esquerda usa 1 , A e Q; o 
da direita, 0, (:) e P. 



a 

10 CLSiPMODE 4,1:SS-PEEK(186)*2 
56+PEEK(18 7) 

20 FOR K-S3 TO SS+480 STEP 32 
30 FOR J-K TO K+3:READ A : POKE J 
,A:NEXT J.K 

40 DATA 1.192,3,128,3.192,3.192 
,6.0,0,96,15,192,3,240 
50 DATA 31,192,3,248,63.192,3,2 
52,15,0,0,240.15.135.113.240 
60 DATA 15,248.15,240,15.248,15 
, 240 , 15 , 128 , 1 , 240 , 15 , 128 , 1 , 240 
70 DATA 15,128,1,240,12,192.3,4 
8.12,192,3,48,14,224,7,112 
80 DIH LC6) ,R(6) ,B{6) 
90 GET{0.0)-(15,15) ,L:aET{16.0} 
-(31,15) .H.G 

100 PCLS: PRINT 810. "D U E L 0" 
110 PRINT «98."GANHE PONTOS ACE 
RTANDO SEU OPONENTE. CADA 
JOGADOR TEM SEIS BA 

LAS." 

120 PHINT:PR1NTTAB(6) I'C N T 
ROLES" 
130 PRINTiPRINT" JOGADOR 1";TAB 



UP 



--CIM 



— BAIXO- 



— FOGO — 



(19) i" JOGADOR 2" 
140 PRINT: PR INT* 
A-- -" 
150 PRINT- DOWN 
p- 

160 PRINT" Z 

/" 
170 PRINT e482."Qualauer tecla 
para comeceir''; 
180 IF INKEYS-"" THEN 180 
190 Xl-16:X2-232:Yl-8e;y2=aS:Bl 
'-6:B2-6;S1-0:S2-0:PCLS 
200 PUT(X1,Y1>-(X1+15,Y1+15) .L. 
PSET;PUT(X2,y2)-(X2+15,Y2+15) ,B 
. PSET 

210 FOR K-1 TO 6:CIRCLE(10*K.2) 
,i,5:CIHCLE{255-10*K,2) ,1.5:NEX 
T 

220 SCREEN 1 , 1 : AS-INKEYS 
230 Ll-Y1:L2-Y2 

240 IF PEEK(341)-247 AND Yl>16 
THEN Yl-Yl-B 
250 IF PEEK{342)-Z47 AND YK176 

THEN Yl-Yl+8 
260 IF PEEK(343)-223 AND Y2>16 
THEN Y2-Y2-8 
270 IF PEEK (338) -251 AND Y2<176 

THEN Y2-Y2+8 
280 IF Bl-0 AND B2-0 THEN 360 
290 IF Ll-Yl THEN 310 
300 PUT (X1.L1)-(X1+15,L1+15) ,B 
:PUT(X1,Y1}-(X1+15,Y1+15> .L 
310 IF L2-Y2 THEN 330 
320 PUT{X2.L2)-(X2+1S.L2+15) .B: 
PUT(X2,Y2)-(X2+15.Y2+15) .R 
330 IF PEEK (340) -247 QOSUB 1000 
340 IF PEEK (345) -223 QOSUB 1500 
350 GJTO 230 

360 CLS:IF Sl>S2 THEN PRINT «96 
, " JOGADOR 1 GANROU POR* ; SI ; 'A* : 
32: GOTO 390 

370 IF S2>Sl THEN PRINT ^Se.^JO 
GADOR 2 GANHOU POR' iS2 i *A' ;S1 :G 
OTO 390 

380 PRINT e96,"HOUVE EMPATE :"i 
Sli-A-.Sl;"!- 
390 A3-INKEYS:G0T0 180 
1000 IF Bl-D THEN RETURN 
1010 PLAY"T120O5AGFEDC- 
1020 FOR N-3Z TO 232 STEP 16 
1030 LINE{N+l,Yl+7)-(H+6,Yl+7) , 
PSET 

1040 LINE(N+l,Yl+7)-(N+6,Yl+7) , 
PRESET 
1050 NEXT 

1060 IF Y1-Y2 OR Y1+8-Y2 THEN S 
1-Sl+l: CIRCLE (10«S1,B) ,2, 5: PLAY 
-TSOIODBC 

1070 CIRCLE (10«B1, 2) ,1.0:B1-B1- 
1 

1080 RETURN 

1500 IF B2-0 THEN RETURN 
1510 PLAY"T120O5BAGFEDC" 
1520 FOR N-216 TO 32 STEP -16 
1530 LINECN+l,Y2+7)-(N+6,Y2+7) , 
PSET 

1540 LINECN+l,Y2+7)-(N+6,Y247) . 
PRESET 
1550 NEXT 

1560 IF Y2-yl OH Y2*8-yi THEN S 
2-32+1 :CIHCLE (255-10*32, 8) ,2,5: 
PLAY'TeOlGDBC" 



1570 CIHCLEC255-10*B2,2) ,1,0:B2 

-B2-1 

1580 BETURN 



10 BORDER 0: PAPER 0: INK 7 

20 BRIGHT 0: OVER 0: CLS 

30 PSIHT AT l,9i INK 6| FLASB 
If" D U E L ■ 

40 PRIHT : PRINT 

50 PRINT INK Si' GANHE PONT 

OS ACERTAtfDO SEU OPOHE 

NTE, CADA JOGADOR 
TEM SEIS BALAS.* 

60 PRINT : PRIHT 

70 PRINT TAB 6; INVERSE li'C 

0NTB0LE8" 

80 PRINT : PRINT ' JOOADOR 1 
JOGADOR 2 " 

90 PRINT : PRINT " 1 - 

-CIMA— 
100 PRINT : PRINT ■ Q - 
-BAIXO- P 

110 PRINT : PRINT " A - 
-TIRO— ENTER" 
120 PRINT : PRINT : PRINT TAB 
6i"0UE VENCA MELHOR" 
130 FOR n-USR "a" TO USH 'i'+J 
140 READ d 
ISO POKE n,d 
160 NEXT n 

170 DATA 1,3.6.15.31,63,15,15 
180 DATA 192.192.0,192,192,192 
.0,135 

190 DATA 15,15.15,15,15.12,12, 
14 

200 DATA 24B,248,128,12S,12B, 
192.192,224 

210 DATA 0,0,0,0,0,0.126,0 
220 DATA 3,3.0,3,3,3,0,113 
230 DATA 128,192,96.240,248, 
252,240,240 

240 DATA 15,15.1.1,1,3,3,7 
250 DATA 240,240,240,240,240, 
48,48.112 

260 LET yl-10: LET y2nl0 
270 LET bl-6: LET b2-6 
280 LET Bl~0: LET b2-0 
290 RESTORE 330: FOR n-1 TO 8 
300 READ d,p 
310 SOUND d,p 
320 NEXT n 

330 DATA .1,7. .09,12, .1.7, .09. 
12. .6.7,-45.2. .45,6, -5,0 
340 PRINT #1;AT 0.0: FLASH li" 
QUALQUER TECLA PARA COMECAR 

M 

350 LET p-254: G08UB 570 

360 IF t-191 THEN GOTO 350 

370 INK 4: BRIGHT 1: CLS 

380 PRINT INVERSE li'JOGADORl 

JOGA0OR2" 

390 PRINT "BALAS : 6 

6 : BALAS' 
400 PRINT lltAT 0,0; INVERSE 1 

410 aOSUB 600 

420 LET p-634a6: G03UB 570 

430 IF i-62 OR i-30 THEN 

GOSUB 810 

440 LET p-61438: QOSUB 570 

450 IF i-62 OR 1-30 THEN 



GOSUB 84 

460 LET P-645I0: GOSUB 570 

470 IF 1-62 OR 1-30 THEN 

GOSUB 870 

480 LET p-57342: GOSUB 570 

490 IF 1-62 OR 1-30 THEN 

GOSUB 900 

500 LET P-4915Q: GOSUB 570 

510 IF 1-62 OR i-30 THEN 

OOSUB 1020 

520 LET p-65022: OOSUB 570 

530 IF i-62 OR i-30 THEM 

GOSUB 930 

540 GOSUB 600 

550 IF bl-0 AND b2-0 THEN 

GOTO 1110 

560 GOTO 4 20 

570 LET i-IN P 

580 IF i>191 THEN LET 1-1-64 

590 RETURN 

600 PRINT AT yl,l;CKR$ 144: 

CHRS 145 

610 PRINT AT yl+l,l!CHH3 146; 

CHR$ 147 

620 PRINT AT y2.29jCHR$ 149; 

CHR$ 150 

630 PRINT AT y2+1.29:CHR3 151; 

CHR$ 152 

640 PRINT AT yl-l.l;" " 

650 PRINT AT yl+2,1;" " 

660 PRINT AT y2-l,29;" " 

670 PRINT AT y2+2,29:" " 

680 PRINT AT 0,9: PAPER 4: INK 

9 * b1 

690 PRINT AT 0.22; PAPER 4i 

INK 9;b2 

700 PRINT AT l,9jbl 

710 PRINT AT l,22!b2 

720 RETURN 

730 PRINT AT 10,10; "AAGH! HE A 

CERTOU 1" 

740 RESTORE 780: FOR n-i TO 11 

750 READ d,p 

760 SOUND d.p 

770 NEXT n 

780 DATA .5, 2, .4. 2, .2, 2, .5, 2,. 

3,5, .2,4, .4.4. .2, 2, .4.2, .2,1, . 

5 , 2 

790 PRINT AT 10,10;' 

m 

800 RETURN 

810 IF yl<4 THEN RETURN 

820 LET Yl-yl-1 

830 RETURN 

840 IF y2<4 THEN RETURN 

B50 LET y2»y2-l 

860 RETURN 

870 IF yl>lB THEN RETURN 

880 LET yl-yi+1 

890 RETURN 

900 IF y2>18 THEN RETURN 

910 LET y2-y2+l 

920 RETURN 

930 IF bl-0 THEN RETURN 

940 SOUND .01.4: SOUND .01,0 

950 FOR n»3 TO 27 

960 PRINT AT yl,n:" ";CHB$ 148 

970 NEXT n 

980 PRINT AT yl.27i" ' 

990 IF yl-y2 OR yl-y2+l THEN 
LET Bl-Bl+l: GOSUB 730 
lOOO LET bl-bl-1 



1010 RETURN 

1020 IF b2-0 THEN RETURN 

1030 SOUND .01,0: SOUND ,01,-10 

1040 FOR n-27 TO 3 STEP -1 

1050 PRINT AT yZ.njCHHS 148;" " 

1060 NEXT n 

1070 PRINT AT y2,3t" " 

lOBO IF y2-Yl OR y2-yl+l THEN 

LET a2-82+l: GOSUB 730 

1090 LET b2-b2-l 

1100 RETURN 

1110 IF b1>b2 then PRINT AT 10 

,5; FLASH l;' JOGADOR 1 VEHCEU 

I" 

1120 IF b2>81 then print AT 10 

,5| FLASH 1;" JOGADOR 2 VENCEU 

r 

1130 IF b1-b2 then PRINT AT 10 
,10t FLASH 1;" EMPATE I " 
1140 GOTO 260 



fffi 



10 GOTO 170 

15 31"Sl-i:LINE(254,Yl-t-5)-(20.y 

1+5) ,15:LINEt2S4,5fl+S}-(20.Yl+5 

).l 

20 IFYl>y2-5ANOYl<Y2+13THENPl-P 

1+1:PUTSPRITE2, (X2,Y2) ,6,2 

25 FORT-0TO50: NEXT: RETURN 

30 S2-32-l;LINE(0.Y2+5)-(235.Y2 

+5) ,15:LINE(0,Y2+5)-t235,Y2+5). 

1 

35 IFY2>Y1-5ANDY2<Y1+13THENP2-P 

2+1 : PUTSPRITEl , (XI , YD . 6 , 2 

40 FORT-0TO50: NEXT: RETURN 

45 CLS: COLOR 15.2.2 

50 L0CATE12,2:PHINT"DUEL0 ESTEL 

AH" 

55 PRINT: PRINT" ganhe pontoa ace 

rtando o seu oponente" 

60 PRINTTAB(5)'cada jooador tea 

aeis balaa' 
65 PRINT: PRINT: PRINT** jooador 1" 
;SPC{19) ;"jc}gador 2": PRINT 

70 PHINTTAB<3)"E ci« 

a 1" 

75 PRINTTAB(3)'D baix 

o J" 

BO PHINTTAB(3)-F f09 

o H" 

eS LOCATE10.20:PRINT"<ijualquer 

tecla>- 

90 IF INKEYS-"" THEN 90 

95 COLOR 15. 1.1: SCREEN 2,1 

100 SPRITE$(0)-A5 

105 SPRITES (1)-B$ 

110 SPEITE5<2)-C$ 

115 IF Sl-0 OH 32=0 THEN 225 

120 OUT C. (INPCC)ANDH)0R3 

125 I=INP(fl) 

130 IF(IAND2J-0ANDyl<176TBEN Yl 

-Yl+2 

135 1F(IAMD4)-0ANDY1>1THEN Yl"Y 

1-2 

140 lF(IAND8)-0 THEN G0SUB15 

145 IF(IAND32J-0 THEN G03UB30 

150 IF(IAND64)-0ANDY2>1THEM Y2- 

Y2-2 

155 IF(IAND128)-0ANDY2<176THEN 

Y2-Y2+2 

160 PUTSPRITEl, tXl.Yl) ,15, 0:PUT 

SPRITE2, (X2.y2) .15,1 



PnOOUMACAOBASK ^^^■■■■|||||||| 



165 GOTO 115 

170 ai-6:S2-6:Pl-0:P2-0:C-170:H 

-240 

175 X1-5:X2-230:Y1-96:Y2-96:B-1 

69 

180 FOR K-1 TO 8 

185 EtEM> P.Q.El 

190 A3-AS+CHR3(P) 

195 B9-B3-t-CHR9(QJ 

200 CS-CS+CHRS(R) 

205 NEXT K 

210 DATA 48,12,129,48,12,66,255 

,255,36,112.14.24 

215 DATA 48,12,24.40.20.36.72,1 

8,66,144,9,129 

220 COTO 4 5 

225 SCREENO;CLS 

230 CLS:PRINT"FIH DE 0OGO":PHIN 

T 

235 PRINT: PBlNT'jogador 1 - ";P 

1" pontoB* 

240 PBINT" joqador 2 - -!P2i" po 

ntoa" 

245 LOCATES. 20 iPBINT-JOGA DE NO 

UO (S/N) ?" 

250 IS-INKEy3!lFI3-"S"THEN BUN 

255 IF I^O'N'THEN 250 

260 CLS:COLOR15.4,4 :END 



[S] 



10 P - 36800 :Q - 32:91 - 6:32 - 

6:P1 - 0:P2 - 0:X1 - 1 
15 X2 - 271:Y1 - 96:12 - 96:H1 
- 1:H2 - 271:V1 - 96:U2 - 96 
20 GOTO 85 
25 SI - SI - 1 

30 HPLOT 20, Yl TO 279. Yl: HCOL 
OR- 
35 HPLOT 20, ¥1 TO 279. Yl: HCOL 

oa« 3 

40 IF Yl > Y2 - 3 AND Yl < Y2 

+ 6 THEN GOTO 75 

45 RETURN 

50 S2 - S2 - 1 

55 HPLOT 260, Y2 TO 0,Y2: BCOLO 

a= 

50 HPLOT 260, Y2 TO 0,Y2: HCOLO 
ft- 3 

65 IF Y2 > Yl - 3 AND Y2 < Yl 
+ 6 THEN GOTO 80 
70 RETURN 

75 PI = PI + 1: PRINT CHB3 (7) 
: RETURN 

80 P2 - P2 + 1: PRINT CHfiS (7) 
: RETURN 

85 HOME :E - 35000: HIMEM: E 
90 F » INT CE / 256) r POKE 232 
,E - F * 256: POKE 233, F 
95 FOR I-ETOE + 4l-t-2*3 
2 

100 READ A: POKE I, A 
105 NEXT 

110 SCALE- I: aOT" 
115 DATA 20 ,0 .42 .0 ,74 , 

,106 ,0 ,138 ,0 ,170 ,0 ,202 
,0 .234 ,0 ,10 ,1 ,42 ,1 .74 ,1 

,105 ,1 ,138 ,1 .170 .1 ,202 , 

1 .234 ,1 ,10 ,2 ,42 ,2 ,74 .2 
,106 .2 .138.2 

120 DATA ,72 ,109 ,73 ,218 
,219 ,255 ,42 ,45 ,45 .45 ,213 
.219 ,59 .191 ,9 ,109 ,73 ,218 




,27 ,31 .159 ,105 ,105 .137 ,2 
19 ,27 ,223 ,6 ,0 ,0 ,0 
125 DATA ,72 .9 .109 .209 
,27 ,255 .155 ,45 ,45 ,45 ,173 
,27 .63 ,223 ,83 ,73 ,109 ,209 
.27 .31 ,223 .74 ,105 ,105 ,26 
,223 ,223 ,19 .0 ,0 ,0 
130 REM SUBBOTINA DE LEITURA 
135 REM DO TECLADO 
140 FOR K - 36810 TO 36815 
145 READ A: POKE K,A: NEXT 
150 DATA 64.32,16,8,4,2 
155 FOR K - 36900 TO 36935 
160 BEAD A: POKE K,A: NEXT 
165 DATA 162,6,169,0.157.19 
1,143,202,224,0,208,248,162,0,1 
89,202,143,141 

170 DATA 0,192,169,32,45,16, 
192,240,3,15 7,192.143.2 32,224,6 
.208.235,96 
175 VTAB (4) : INVERSE : PRINT 

TAB( 39)" *: NORMAL 
180 PRINT TAB( 15)" D U E L 

185 INVERSE : PRINT TAB( 39)' 

" : NORMAL 
190 PRINT : PRINT " GANHE PONT 
OS ACERTANDO O SEU OPONENTE" 
195 PRINT TAB( 6) "CADA JOGADO 
R TEM SEIS EJALAS" 
200 PRINT ; PRINT : PBINT "JOO 

ADOR I — JOGA 

DOR 2": PRINT 

205 PRINT " 1 CI 

MA 0" 

210 PRINT ■ —^ ^--FO 

GO P" 

215 PBINT " A BAl 

XO :" 

220 PRINT : PRINT : PRINT : PB 



INT 

225 HTAB (13) : INVERSE : PRINT 

"QUALQUER TECLA" : NORMAL 
230 GET 29: IF 2S - " " THEN 23 


2 35 HGH2 : HCOLOR- 3 
Z40 DRAW 1 AT XI. Yl: DRAW Z AT 

X2,Y2 
245 XDRAW 1 AT H] .VI : XDBAW 2 
AT H2,V2 

250 VI - Yl :V2 « Y2 
255 DRAW I AT XI, Yl: DRAW 2 AT 

X2,Y2 
260 CALL 36900 
265 TF SI - OR S2 - THEN 
GOTO 305 

270 IF PEEK (P) - Q AND ¥2 < 
181 THEN Y2 = YZ + 3 
275 IF PEEK (P + 1) = Q THEN 

GOSUB 50 
2B0 IF PEEK (P + 2) = Q AND Y 
2 > 10 THEN Y2 - Y2 - 3 
265 TF PEEK tP + 3) - Q AND Y 
1 > 10 THEN ¥1 = Yl - 3 
290 IF PEEK tP + 4) - Q THEN 

GOSUB 25 
295 IF PEEK (P + 5) - Q AND Y 
I < 181 THEN Yl - Yl + 3 
300 GOTO 245 
30 5 TEXT : HOME 
310 PRINT -FIM DE JOGO* : PRINT 

: PRINT 
315 PRINT 'JOGADOB 1 ■ "jPl;" 
PONTOS' 

320 PBINT -JOGADOB 2 - ";P2;" 
PONTOS" 

325 PBINT : PRINT : INPUT "JOG 
A DE NOVO (S/N) ?':AS 
330 IF AS - "S- THEN HUN 
335 END 
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mais usds para vtransf 
c6pia da tela 



EM FITA OU disco 



COMO recuperar 



uma tela gravada 



Como vimos sm artigos anteriores, 
podemos utilizar v^rios "truques" para 
explorar mathor os recursos de 
video do TRS-80. Aprenderomos agora a 
gravar uma tela em fita ou disco. 



A sub-rotina VTRANSF, apresenta- 
da no scgundo artigo desta serie, seri 
usada aqui por um programa que copia 
integraimente o conteudo da tela de vi- 
deo, armazenando-o, depois, em um ar- 
quivo de fita ou disco. Um outro pro- 
grama permitird a realizapao da opera- 
Cao inversa, ou seja, colocar novamen- 
te na tela um desenho ou texto armaze- 
nado em fita ou disco. 

O m^todo utilizado para isso 6 seme- 
Ihante ao que vimos no artigo anterior, 
quando tratamos da impressao, linha 
por linha, do conteiido da tela. A dife- 
renga e que, em vez de imprimirmos a 
variavel V$, simplesmente a envlamos 
para fita ou disco. 



ARMAZENAGEM EM FITA 



Listamos, a seguir, a versao para fi- 
ta. Depois de digitd-la, acrescente a sub- 
rotina lOOO, apresentada no artigo an- 
terior. 

10 CLEAB 500 

20 CLS : PRINT 'PBEPARE GRAV 

ADOH" 

25 PRINT "E PRESSIQNE <ENTER> " 

30 Ct-64 : AS-CHR$(34) 

35 IF INKEYS-"" THEN 35 

40 FOR Vt-0 TO 960 STEP 64 

50 G03UB 1000:PRINT |-l.ASrV$i 

A$ 

60 NEXT VI 

70 END 

A linha 30 determina o comprimen- 
to da linha de video a ser copiada (54 
posigoes). Ela se encarrega, tamb^m, de 
deftnir a variivel AS, que conterS o ca- 
ractere *'aspas", Este serd usado na li- 
nha 50, para englobar a varidvel V$. A 
linha 35 espera que o usuario prepare o 
gravador e pressione a tecla < EN- 
TER > . S6 entao o programa continua. 
O la? o que vai da linha 40 ^ linha 60 co- 



pia as dezesseis linhas da tela, sucessi- 
vamente, na variivel V$, usando a fun- 
qao VARPTR, e, em seguida, envia pa- 
ra o gravador 1. 

£ muito importante colocar todo o 
string V$ entre aspas, pois, se houver al- 
guma vfrgula ou ponto e virgula na te- 
la, a transmissao para a fita seri trun- 
cada, provocando um erro de leitura, 
posteriormente. 



ARMAZENAGEM EM DISCO 



A versao para disco 6 mais simples; 

10 CLEAR 500 

20 OPEN "0-,1,-TELAl/UtO' 

30 Cl=64 

40 FOR Vt-0 TO 960 STEP 64 

50 GOSUB 1000 : PRINT #1,V5 

60 NEXT V» 

7 CLOSE 1:END 

A linha 20 abre um arquivo de aces- 
so seqiiencial para saida, chamado TE- 
LA 1/VID (poderia ser qualquer nome). 
As linhas 30 a 60 funcionam como na 
versSo para fita, s6 que nao sao neces- 
sarias as aspas em torno de V$. A linha 
70 fecha o arquivo criado. 



LEITURA EM FITA 



O programa que le o conteudo de te- 
la no arquivo, trazendo-o de volta ao vi- 
deo, obedece k mesma seqiigncia: 

10 CLEAR 500 

20 CLS : PRINT 'PREPARE GRAV 

ADOB" 

25 PRINT "E PRESSIONE <ENTER> " 

30 CI-64 

35 IF INKEYS-"" THEN 35 

40 FOR VI =0 TO 960 STEP 64 

50 GOSUB 1000 : INPUT f-l.XS 

55 V3=LEFT5tXS,CI) 

60 NEXT VI 

70 END 

Observe que a sub-rotina VTRANSF 

tamb^ra serve para o programa de lei- 
tura, sem modifica?6es, jA que sua fun- 
gao consiste em determinar a localiza- 
gao e tamanho do string VS na mem6- 
ria. Assim, depois de definida pela linha 
55, a varidvel V$ 6 automaticamiente ar- 



mazenada na memdria de video. Sua 
exibigao na tela tambem € instantanea. 
A funpao LEFTS toma apenas os 64 
primeiros caracteres de X$, uma vez 
que, na gravagao, um caractere ASCII 
13 {linefeed) foi adicionado ao final de 
V$. Esse caractere prejudicaria toda a 
tela se nao fosse retirado. 



LEITURA EM DISCO 



A versao do programa de leitura em 
disco & a seguinte: 

10 CLEAR 500 

20 OPEN "I",1,"TELA1/V1D" 

30 Ct-64 

40 FOR Vt-0 TO 960 STEP 64 

50 GOSUB 1000: LINE INPUT #1,XS 

55 LSET US-XS 

60 NEXT Vt 

70 CLOSE 1:END 

O LSET da linha 55 existe apenas no 
BASIC para disco. Tem a mesma fun- 
gao do LEFTS da versSo para fita mas, 
em termos operativos, i mais simples 
que esse comando. 



APLlCApOES 



Existem muitas aplJcagQes para os 
programas listados neste artigo. Uma 
das mais comuns t na montagem das tc- 
las de instrugdes de um jogo. Estas, 
quando mais eiaboradas, podem incluir 
grdficos, juntamente com textos expli- 
cativos — por exemplo, a reprodugao do 
desenho de cada tipo de nave immiga e 
o niimero de pontos que o jogador ga- 
nha se abatS-las. Em vez de colocar to- 
dos esses dados dentro de uma mesma 
listagem, tornando-a longa e compUca- 
da, use os programas de transferSncia 
para jogar as figuras e o texto direta- 
mente 'da fita ou disco para o video do 
microcomputador, gastando apenas 64 
bytes de memdria RAM! 

Os programas educativos constituem 
uma outra irea imponante de aplicagao. 
As telas podem eompor, por exemplo, 
as piginas de um "livro eletronico" . Ar- 
mazenadas em disco, serao "folheadas" 
pelo aluno, que copiara aquelas que jul- 
gar necessario. 



ip^foo/co DBmQui/^fn^\ 




AVALANCHES ACERI© 
DAS \5^R[IAVE 




AVANCO DA MARE 



GAIVOTAS . NUVENS 
E VENTO 



PEDRAS E COBRAS 

SITUACAO DO PERSONAGEM 




Uma das tarefas mais dJficeis 
na programa^ao de jogos em c6digo 
de m^quina e garantir a sincronia 
dos divefsos eventos. Aqui estao 
as rotinas que cuidam disso. 

Sempre que vamos recome?ar o jo- 
go, precisames acertar o escore e, tatn- 
bdm. estabelecer os parametros que in- 
fluenciam o comportamento de outras 
sub-rotinas. Temos que esvaziar a ma- 
re que ameacava Willie, definir a diie- 



gao do vento, colocar Willie de volta ao 
p€ do monte e, para que tudo ocorra no 
momenio adequado, acertar os diversos 
lacos controladores de tempo. 



A rotina que se segue acerta o valor 
das diversas variaveis para que Willie 
possa se dedicar k irdua tarefa de recu- 
perar seu lanche roubado, 

10 REM org 58606 



20 


REM 


dth Id a. 6 




30 


REM 


Id 


C57353) 


.a 


40 


REM 


la 


hi, 736 




50 


REM 


Id 


(57354} 


.hi 


60 


REM 


Id 


hi, 130 




70 


REM 


Id 


(57345) 


.hi 


BO 


REM 


Id 


a. 3 




90 


REM 


Id 


(57347) 


, 3. 


100 


REM 


Id 


6,0 




110 


REM 


Id 


(57348) 


,A 


120 


REM 


Id 


a, 2 




130 


REM 


Id 


(57349) 


a 


140 


HEM 


Id 


hi, 449 




150 


REM 


Id 


(57332) 


.hi 


160 


REM 


Id 


hl.O 




170 


REM 


Id 


(57334) 


hi 



B^s' 



180 


REM Id a,0 


> 


190 


REM Id (57335) 


a 


200 


BEM Id hi, 223 




210 


HEM id (57356) 


hi 


220 


REM Id a.O 




230 


HEM Id b.5 




240 


REM Id (57350) 


>a 


250 


REM add a,b 




260 


REM Id (S7351) 


,a 


270 


REM add a,b 




280 


REM Id (57352) 


,3 



^9 



Essa rotina nao e chamada apenas no 
im'cio do jogo, mas, tambem, quando 
ele recomega, depois de Willie encontrar 
a morte dentro de um buraco, afogado 
ou embaixo de alguma pedra. 



Coiocando todas as variaveis juntas 
na memdria do tnicrocomputador, po- 
demos verificar o status do jogo a qual- 
quer instante, o que facilita muito a ta- 
refa de depura<;ao de erros. 

Variaveis de um b>ie sao modifica- 
das atraves do acumulador, que tern oi- 
to bits, enquanto o par de registros HL 
se encarrega das varidveis de dois bytes, 
mesmo que o seu conteiido no momen- 
to caiba em apenas um byte, Isso ocor- 
re porque o byte mais significativo tam- 
bem deve ser modificado, 

O endereeo 57353 cont^m o atraso do 
movimento da mard. Colocamos ali o 
numero 6, dando a Willie uma chance 
razo^vd de escalar a monlanha antes de 
se afogar. Depois, esse valor podera ser 
modificado para acelerar o avango da 
mare, o que tornara o jogo mais dificil 
e mais emocionante. 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posi^ao da tela correspondente ao 
canto superior esquerdo do mar 6 colo- 
cada nos endere^os 57354 e 57355. O nu- 
mero 736, valor inicial dessa varidvel, 
equivale ao endere?o da extremidade in- 
ferior esquerda da tela. 



A NUVEM 



Na versao do jogo para o Spectrum, 
h^ uma nuvem cruzando o c^u. O en- 
derevo 57345 cont^ra sua posi? ao de im- 
pressao na tela. O valor inicial dessa va- 
riavel e 130. 

Mas o programa utiliza outros dados 
para cuidar do movimento da nuvem. 
Se nao provocarmos um atraso, ela atra- 
vessara o c6u tao rapidamente quanto 
um aviao a jato. Para evitar isso, colo- 
camos um contador de atraso na posi- 
fao 57347. Seu valor inicial e 3. 

Precisamos tambem saber em que di- 




OiaODiMA 



re?3o sopra o vento, para que a nuvem 
se mova de acordo. A informapao fica 
armazenada em 57348. Quando esse 
byte vale zero, a nuvem se movimenta 
para a direita; quando vale 1 , para a es- 
querda. No programa, essa varidvel tern 
valor inicial zero, movendo, portanto, 
a nuvem para a direita. 





Um atraso para o movimento das gai- 
votas 6 coiocado em 57349, com valor 
inicial 2, A posiijao que Willie ocupa na 
tela fica em 57352. O programa coloca 
ali o valor 449, correspondente ao can- 
to inferior esquerdo do perfil da encos- 
ta da montanha. 

Uma outra variivel informa ao pro- 
grama se nosso her6i esti parado, cor- 
rendo ou saltando. Por motives que co- 
nheceremos mais adiante, utilizaremos 
dois bytes, 57334 e 57335. Coma Willie 
come(;a o jogo em pe, parado no sop6 
da montanha, o programa coloca zero 
naquelas posifoes. 

A situacao atual do jogo pode ser 
monitorada pela variavel que fica em 
57336. Se esse byte for 0, Willie vai bem, 
obrlgado. Se for 1, ele acaba de recupe- 
rar parte do seu lanchee as rotinas do 
prdximo nivej de dificuldade v3o ser 
chamadas. Se for 2, Willie morreu! Co- 
mo no inicio do jogo nosso personagem 
esti vivo, o programa coloca nessa po- 
sigao. 



PEDRAS E COBRAS 



A variivel que conirota a posi^ao da 
pedra fica em 57356. O programa colo- 
ca ali seu valor inicial, 223, que corres- 
ponde ao topo da montanha. no canto 
superior direito. 

As tres cobras tern lingua que se me- 
xe. Como nao e desejcivei que as linguas 
fafam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso, c6locam-se variiveis de atra- 
so diferentes para cada lingua, nos en- 
derefos 57350, 57351 e 57352. O acumu- 
lador recebe o valor zero, e o registro 
B, o niimero 5. Na primeira varidvel de 
atraso coloca-se, entao, zero. Soma-se 
o conteiido de B ao acumulador e o re- 
sultado, 5, i coiocado no segundo atra- 
so. Mais uma vez 5 e somado ao acu- 
mulador e o resultado, 10, vai para o 
terceiro atraso. 



O programa em Assembly listado a 



seguir estabelece o valor inicial de uma 
sdrie de vari^veis que sio usadas para 
controlar o jogo. 



xo 


ORG 19447 


20 


NtV CDA 16 


30 


STA IB 246 


40 


LDX 17424 


50 


3TX 18247 


60 


LOX #5088 


70 


3TX 16249 


80 


CLR 18251 


90 


CLR 18252 


100 


LOX #3070 


110 


STX 18253 


120 


CLR 18255 


130 


LDA 5 


140 


STA 1B256 


150 


LDA 110 


160 


STA 18257 


170 


ATS 



Essa rotina, que recebeu o r6tulo 
NLV, € utilizada no inicio do jogo e, 
tambem, quando Willie morre. 



Uma das vantagens de se colocar to- 
das as varidveis em um mesmo local da 
mem6ria 6 que podemos verificar facil- 
mente o status do jogo quando estamos 
depurando os erros. 

O valor de varidveis de um byte e es- 
tabelecido com a ajuda do acumulador, 
que tern oito bits, enquanto o registro 
X, de dezesseis bits, se encarrega das va- 
riaveis de dois bytes, mesmo que o seu 
conteiido, no momemo, caiba em um 
linico byte. Isso ocorre porque byte 
mais significative tambem deve ser mo- 
dificado. 

O endere?o 1 8246 contem o atraso do 
movimento da mare. O programa colo- 
ca o valor 6 nessa posicao para que Wil- 
lie tenha uma chance razodvel de subir 
a montanha antes de se afogar. Depois, 
poderemos mudar esse valor para ace- 
lerar o avanfo da mare, tornando o jo- 
go mais dificil e emocionante. 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posi^io da memdria de video cor- 
respondente ao canto superior esquer- 
do do mar e colocada nos bytes 18247 
e 1 8248 . O programa guarda ali o valor 
inicial 7424, que corresponde ao canto 
inferior esquerdo da 'tela. 



VIDA OU MORTE 



A posi?ao de Willie na tela fica ar- 
mazenada em 18249. O programa colo- 
ca nesse byte o valor inicial 5088, cor- 
respondente ao canto inferior esquerdo 
do perfil da encosta da montanha, de 
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onde nosso her6i deve partir em busca 
do lanche perdido 

Uma outra variAvel, que fica em 

18251 , verifica se Willie esta parado, an- 
dando ou pulando. O programa coloca 
valor zero nessa posi^ao jA que no ini- 
cio do jogo o personagem esti parado, 
ao p^ da montanha. 

A situacao atual do jogo pode scr 
monilorizada pela varidvel que fica em 

18252. Se esse byte for 0, Willie vai bem, 
obrigado. Se for 1 , ele acaba de recupe- 
rar parte do seu lanche e as rotinas do 
pr6ximo m'vel de dificuldade vao ser 
chamadas. Se for 2, Willie morreu! Co- 
mo no im'cio do jogo nosso personagem 
esti vivo, o programa coloca nessa po- 
si^ao. 



PEDRAS E COBRAS 



A variivel que controla a posi^ao da 
pedra fica em 18253. O programa colo- 
ca all seu valor inicial, 3070, que corres- 
ponde ao topo da montanha, no canto 
superior direito. 

As tres cobras tem Lingua que se me- 
xe. Como nao e desejavel que as linguas 
fapam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso. colocam-se variiveis de atra- 
so diferentes para cada lingua, nos en- 



derecos 18255, 18256 e 18257. A prime!- 
ra varidvel de atraso e limpa com CLR, 
tornando-se zero. Os mimeros 5 e 10 sao 
colocados, respectivamente, na segunda 
enatercetravariiveis'de atraso, com o 
auxllio do acumulador. 



A rotina listada a seguir ajusta uma 
serie de variiveis com os vaJores que elas 
precisam center quando Willie inicia sua 
arriscada missao. 



10 


org -11645 


20 


nrt Id a, 6 


30 


Id (-5213), a 


40 


Id hi, 736 


50 


Id (-5212), hi 


60 


Id hi. 130 


70 


Id (-5210) ,hl 


80 


Id a, 3 


90 


Id t-520B),a 


100 


Id a.O 


110 


Id (-5207) ,a 


120 


Id a, 2 


130 


Id (-5206), 9 


140 


Id hi, 461 


150 


Id (-5205), hi 


160 


Id hl.O 


170 


Id (-5203), hi 


180 


Id a,0 


190 


Id (-5201) ,a 


200 


Id hi, 255 



210 


Id (-5200) 


hi 


220 


Id a.O 




230 


Id b,5 




240 


Id (-5198) 


.a 


250 


add a,b 




260 


Id (-5197) 


.a 


270 


add a,b 




280 


Id (-5196) 


• a 



Essa rotina, rotuiada mrt, nao € cha- 
mada apenas no inicio do jogo, mas, 
tamb^m, ap6s a morte de Willie, quan- 
do as varidveis sao reajustadas para uma 
nova partida. 



Como reunimos todas as variaveis em 
um raesmo lugar da membria, podemos 
verificar o status do jogo a qualquer mo- 
mento, quando precisamos corrigi-lo. 

As variiveis de um byte sao ajusta- 
das pelo acumulador de oito bits, en- 
quanto o par HL, que tem dezesseis bits, 
se encarrega das variiveis de dois bytes, 
mesmo que o valor nelas armazenado, 
em determinado estagio, caiba em um 
s6 byte. Isso ocorre porque os bits mais 
significativos da varidvel tambem devera 
ser ajustados. 

A posiQao de memdria -5213 con- 
tem o atraso do mar. Eta i carregada 
com o valor 6, para que Willie tenha. 
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uma razoAvel chance de escaiar a mon- 
tanha antes de se afogar. Depois, pode- 
remos modificar esse valor para acele- 
rar o avan?o da mare, tornando o jogo 
mais dificil e emocionante. 

No inicio de cada tentativa de Wil- 
lie, o mar deve esiar bem baixo, na par- 
te inferior do cenario, A posicao do can- 
to esquerdo da superffcie do mar t ar- 
mazenada em -5212 e -5211. 

O ndmero 736 e carregado nessa po- 
sifao, que corresponde ao canto inferior 
esquerdo da tela. 



A NUVEM 



Na versao de Avalanche para o MSX, 
a nuvem move-se no ceu acima da mon- 
tanha. Os endere^os -5210 e -5209, 
que contem sua posi^ao na tela, sao car- 
regados com 130, que corresponde ao 
ponto onde ela surge. 

Mas prograraa utiliza outros dados 
para cuidar do movimento da nuvem. 
Se nao provocarmos um atraso, ela atra- 
vessard o c^u como um jato. 

Para ajustar a variivel de atraso, car- 
rega-se o endere?o em que esta armaze- 
nada, - 52080, com o valor 3. 

Precisamos tamb^m deflnir a dire9aQ 
em que a nuvem se move. Esta informa- 
9ao h armazenada em - 5207. Se colo- 




carmos nesse endereco, ela se dirigird 
para a direita; se colocarmos 1 , para a 
esquerda. Como a rotina serd imcializa- 
da tendo nessa posi?ao, a nuvem ird 
para a direita. 



VtOA OU MORTE 



O atraso do movimento da gaivota 6 
armazenado no endere?o - 5206, sendo, 
inicialmente, ajustado com o valor 2. A 
posi9ao de Willie na tela e determinada 
peio conteiido dos endereeos - 5205 e 
-5204, que s5o carregados com 481, 
valor correspondente ao lado esquerdo 
da base da encosta. 

Uma outra variavel controla a movi- 
mentapao de Willie, se ele estiver de pe, 
correndo ou pulando. Por razoes que 
veremos depois, ela e armazenada em 
dois bytes, -5302 e -5202. Como, no 
inicio do jogo, Willie estd de p6, esses 
enderei;os sao ajustados em 0. 

A conditio geral do jogo e monito- 
rada pela varidvel, que fica no endere- 
90 - 5201 , Vamos chamd-la de varidvel 
morte. Se scu valor for 0, estd tudo bem 
com Willie. Se for 1 , nosso personagem 



alcan90u seu pr§mio e a pr6xima tela do 
jogo deverd ser chamada. Um valor 2 
significa que Willie estd morto! Como 
o jogo comega com Willie vivo, esse byte 
6 carregado com 0. 



PEDRAS E COBRAS 



A varidvel que controla a posigao da 
pedra e armazenada nos enderegos 
-5200 e -5199. Essa varidvel h ajus- 
tada com o valor 255, que corresponde 
ao lado direito do topo da encosta. 

As tres cobras tem lingua que se me- 
xe. Como ndo e desejdvel que as linguas 
tenham o mesmo movimento, devemos 
provocar uma defasagem em seu ritmo. 
Para isso, carrega-se o acumulador A 
com valor e o registro B com a de- 
fasagem 5. O valor t armazenado na 
variavel de atraso da primeira cobra 
(-5198). A defasagem 5 i adicionada 
ao valor de A (0) pela instru^do add a,b 
e o resultado, 5, vai para a varidvel de 
atraso da segunda cobra (-5197). Re- 
pete-se a operafio e o resultado, 10, 6 
armazenado na varidvel de atraso da ter- 
ceira cobra (-5196). 



sw 



l^^PERlFiRiCOS U 



MOUSE MECANICO 
E MOUSE OPTICO 



mouse e urn perif^rico cada vez 
mais procurado por usuarios de 
microcomputadores pessoais ou 
proftssiortaiis. ConheQa-o de perto 
e descubra suas v^rias utilidades. 



A busca por novas formas de intera- 
fao entre o usudrio e o computador tem 
levado ao desenvolviraento de diversos 
tipos de perifericos, como o joystick, a 
caneta optica e o tablete de digitaliza- 
Qao, que tem por finalidade facilitar o 
deslocamento de um cursor, de texto ou 
grafico, sobre a tela. 

Um dos perifericos dessa famflia e o 
mouse, ou camundongo, dispositive que 
vem sendo cada vez mais usado em mi- 
crocomputadores de todos OS tipos. 

O mouse recebeu essa denominaijao 
em virtude da semelhani;a ft'sica com um 
ratinho: e uma pequena cabca achatada, 
de cantos arredondados, com um a tres 
botoes pianos em sua superficie dorsal 
eum fio (o "rabo") que sai da parte tra- 
seira, conectado ao computador. 

Para us^-lo, repousa-se uma das 
maos sobre a caixinha, ao mesmo tem- 
po apoiando um ou mais dedos sobre os 
botoes. Para efetuar algum movimento 
do cursor sobre a tela de video, basta 
desloca-lo levemente de um lado para 
outro sobre uma superficie dura e pla- 
na. Com um minimo de prdtica, o usua- 
rio aprende a coordenar o mouse com 
o que acontece na tela, conseguindo 
grande agilidade e tlexibilidade em inii- 
meras funfoes fixadas por um software 
especial — entre elas, selecionar Ucns em 
um menu, desenhar sobre a tela, apon- 
tar um cursor ou uma mira etc. 

Os botoes da parte de cima do mouse 
tem um papel idSntico ao do botao de 
dtsparo de um joystick, sendo usados, 
normalmente, para selecionar op<;6es. 



OA ORIGEM k POPULARIZApAO 



O mouse nasceu em um centro de 

pesquisas norte-americano, que estava 

desenvolvendo uma nova linguagem, 

■■H chamada small-talk, e precisava de um 

""' terminal de video especial para imple- 



mentar os novos conceitos de interati- 
vidade que seus criadores imaginaram. 
O periferico que eles crtaram era uma 
especie de trackball ks avessas: em vez 
de deslocar com a palma da mao uma 
esfera presa ao teclado, o usuario des- 
locava a esfera sobre uma superficie. 

Inicialmente, o uso desse dispositivo 
foi bastante restrito, ja que era dispo- 
nivel apenas para minicomputadores 
muito caros. Porem, a partir do apare-. 
cimento dos microcomputadores das li- 
nhas Lisa e Macintosh (fabricados pela 
Apple Computer nos EUA), que basea- 
ram seus sistemas operacionais na inte- 
ragao com o mouse, ele passou a ser fa- 
bricado tambem para outras linhas de 
microcomputadores. Em pouco tempo, 
tornou-se muito conhecido. 

No Brasil, o mouse est A disponivel pa- 
ra microcomputadores das linhas ZX 
Spectrum (TK^OX e TK-95), Apple 11 e 
MSX, No exterior podem ser encontra- 
dos modelos para micros de outras li- 
nhas. Em um artigo futuro, ensinaremos 
algumas tecnicas em BASIC para o mouse 

Embora um mouse tenha sempre a 
mesma aparencia externa, com poucas 
variagoes de um modelo para outro, 
existem, na realidade, dois tipos funda- 
mentalmente diferentes quanto ao me- 
canismo de funcionamento: o mouse 
mecanico e o mouse 6ptico. 

O primeiro tem uma esfera de plasti- 
co ou metal macifo em sua "barriga" 
(ou seja, no lado voltado para a mesa). 
Quando o dispositivo e deslocado, a es- 
fera gira ao redor de seu centro, acom- 
panhando o movimento. Sensores colo- 
cados em sua superficie, dentro da cai- 
xinha, enviam ao computador os angu- 
los de rotagao verificados em duas dJ- 
mensoes e ura software especial, previa- 
mente carregado na memdria do com- 
putador, transforma esses angulos em 
coordenadas X e Y, que sao usada's pa- 
ra posicionar o cursor na tela. 

O mouse 6ptico funciona de acordo 
com um principio total mente diferente: 
um diodo luminescente (LED), localiza- 
do na parte inferior da caixinha, langa 
um feixe de luz em diregao k superficie 
sobre a qual sera deslocado o mouse, 
Em outro orificio, ujn sensor luminoso 
capta as variagoes da luz refletida pela 
superficie. 



UM PERIFERICO DIFERENLE 
COMO FUNCIONA 



UM MOUSE MECANICO 
COMO FUNCIONA UM 



MOUSE 6PTIC0 



Ao contririo do mouse mecanico, 
que pode ser deslocado sobre qualquer 
superficie plana e nao muito lisa, o mou- 
se 6ptico requer uma superficie especial. 
Esta consiste de um tablete todo mar- 
cado com um quadriculado em cor azul 
ou preta. Ao se deslocar o mouse sobre 
ela, as linhas do quadriculado proyocam 
uma alteragao na reflexao do feixe de 
luz vermelha emitido pelo diodo, o que 
e sentido pelo software especial como 
uma movimentagSo em algum sentido. 
Essa informagao. por sua vez, e trans- 
mitida ao computador e convertida em 
coordenadas X e Y. 

Cada tipo de mouse apresenta van- 
tagens e desvantagens. O modelo meca- 
nico ^ mais fr^gil, quebrando-se facil- 
mente, e menos sensivel do que o opti- 
co. Por^m, pode ser usado sobre qual- 
quer lipo de superficie. J^ o mouse 6p- 
tico requer uma superficie especial, li- 
mitada em tamanho, e apresema ainda 
a desvantagem de necessitar de uma fon- 
te de alimentafao — dependendo do 
modelo, ela precisa ser separada da fon- 
te de alimentagao do computador. 

A maioria dos perifericos de tipo 
mouse e conectada ao micro atraves da 
porta de joystick anal6gico ou de uma 
porta serial do tipo RS-232. 

Antes de adquirir um mouse, verifi- 
que suas caracteristicas para se certifi- 
car de que poder^ compatibilizi-lo com 
seu computador. 



APLlCApOES 



O mouse e um periferico muito diver- 
tido e ficil de usar, tanto em programas 
para jogos de qualquer tipo, quanto em 
aphcagoes mais "serias". 

A principio, toda aplicagao que per- 
mite a utilizagao de canetas Opticas ou 
joysticks tambem se presta para o uso 
do mouse. Existem, porem, alguns pro- 
gramas comercialmente disponiveis, que 
sao feitos exclusivamente para o mou- 
se. Incluem-se, entre eles, programas de 
desenho sobre a tela, de sele?ao rdpida 
de menus etc. 

E nSo se esquega: com alguns coman- 
dos simples em BASIC, nao sera dificii 
desenvolver os seus pr6prios programas 
para o irrequieto mouse. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



c6digo de maquina 

Contagem de pontes em Avalanche. Exibipao do placar. 
Nutnero de vidas. Troca de telas. Nfveis de dificuldade. 

PROGRAMAgAO BASIC 

Gerapao de acordes no MSX. Melodias stmultaneas. A instru?ao 
SOUND. Tabela de conversao de notes. 

PROGRAMAQAO DE JOGOS 

Jogos de guerra no tabuleiro e no computador. Capa e Espada: 
organizapao do jogo e criagao dos blocos gr^ficos. 
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